diff --git a/scripts/basic_plot.pl b/scripts/basic_plot.pl
new file mode 100755
index 0000000..3d52897
--- /dev/null
+++ b/scripts/basic_plot.pl
@@ -0,0 +1,26 @@
+#!/usr/local/bin/perl
+
+use feature 'say';
+#use autodie qw(:all);
+
+
+=pod
+
+open my $GP, '|-', 'gnuplot';
+
+print {$GP} <<'__GNUPLOT__';
+    set terminal x11
+    # set output "test.png"
+    set xrange [-5:5];
+    plot sin(x);
+    pause -1;
+__GNUPLOT__
+
+close $GP;
+
+=cut
+
+say "Press any key to exit.";
+my $a=<>;
+system("gnuplot file");
+#`gnuplot file`;