gistfile1.txt

elsif ($type eq "plot") {
    print header(-type => 'image/png', -expires => '-1h' );
    if (!defined($symbol)) {
    # $symbol = 'AAPL'; # default
  }

open(GNUPLOT,"| gnuplot") or die "Cannot run gnuplot";

  print GNUPLOT "set term png\n";           # we want it to produce a PNG
  print GNUPLOT "set output\n";             # output the PNG to stdout
  print GNUPLOT "plot '-' using 1:2 with linespoints\n"; # feed it data to plot
  foreach my $r (@rows) {
   $counter = $counter + 1;
   if($counter % $mod != 0){
    next;
  }
  print GNUPLOT $r->[0], "\t", $r->[1], "\n";
}
  print GNUPLOT "e\n"; # end of data

  #
  # Here gnuplot will print the image content
  #

  close(GNUPLOT);