Select Code to Download

#!/usr/bin/perl -w
# test4.pl for testing real-time graph capabilities
# November 9, 2004
...
my $combined = "$station" . "$constituent";
my $img = `/usr/local/bin/gnuplot $station $constituent $combined`;
print $q->header("image/png"), $img;

#!/usr/bin/perl -w

# test5.pl for testing real-time graph capabilities
...
gnu
  close $graph or die "Failed to close pipe: $!\n";
}