my @keys = sort keys %parseddata;
my @values;
for(@keys){
 push @values,$parseddata{$_};
}
my @data=([@keys],[@values]);
my $graph=GD::Graph::area->new(1000,600);
#set all the graph options(labels, colors etc...)
my $gd = $graph->plot(\@data);
open(GRAPH, ">/graphs/$datestamp.png) or die "Can't open output file for graph: $!";
binmode GRAPH;
print GRAPH $gd->png;