From e55035efae514f6903761856399af06b88fc635d Mon Sep 17 00:00:00 2001
From: caes <xaw5719@wmich.edu>
Date: Mon, 20 Jun 2016 16:29:28 -0400
Subject: [PATCH] added basic gnuplot script

---
 scripts/basic_plot.pl | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100755 scripts/basic_plot.pl

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`;