sub graph
{

my $graph = new GD::Graph::lines(500,350);
my $gd_image = $graph->plot(\@data);
# print header(-type => "image/png");
# binmode STDOUT;
# print $gd_image->png;

open (TMPFILE,">file.png");
binmode TMPFILE;
131 print TMPFILE $gd_image->png;
close TMPFILE;
}