#!/usr/bin/perl
#
# ptoplot.pl
#

use strict;
use warnings;

my $output_file = "graphics/plot1";
my $cmd = '| gnuplot - 2>&1';
open PLOT, "$cmd" or die;

while (<DATA>) {
    print PLOT "$_";
}

qx("sync");

__DATA__
set terminal png medium color picsize 800 600
set output "graphics/plot1"
set title 'Splot of file plot.dat'
set style data dots
# set hidden3d
# set data palette
set contour base
set zlabel 'amplitude'
splot  "graphics/plot.dat" matrix with lines

show output