$graph .= <<BLOCK;
set terminal png transparent
set output "tmp/$random.png"
set size 0.9,0.5
set pointsize 0
set xdata time
set format x "%a\\n%H:00"
set ylabel "Degrees C"
set xlabel "Hours"
set timefmt "%Y-%m-%d%H:%M:%S"
set key below
plot\\
BLOCK

foreach $i (@inputs){

$graph = $graph . "\"tmp/$random.dat\" using 1:" . $c . " title '$i' with lines,\\\n";

$c++;

}

$graph = substr($graph, 0, (length($graph)-3));

open (GNUPLOT, "|/usr/bin/gnuplot") or die $!;
print GNUPLOT $graph . "\n\n";
close (GNUPLOT);


##</code><code>##

set terminal png transparent
set output "tmp/854.png"
set size 0.9,0.5
set pointsize 0
set xdata time
set format x "%a\n%H:00"
set ylabel "Degrees C"
set xlabel "Hours"
set timefmt "%Y-%m-%d%H:%M:%S"
set key below
plot\
"tmp/854.dat" using 1:2 title 'D4_AVG' with lines