Select Code to Download

for($date){
   ($h,$m,$s)=split/:/;
...
   $m="45" if ($m>=45);
   s/\:\d\d\/\:$m/; #replace the minutes with the generalized value
}

$parseddata{$date}++ unless grep{$_ eq "$date|$session"}@seen;
push @seen,"$date|$session";

my @keys = sort keys %parseddata;
my @values;
...
open(GRAPH, ">/graphs/$datestamp.png) or die "Can't open output file f
+or graph: $!";
binmode GRAPH;
print GRAPH $gd->png;