while ( <DATA> ) {
    chomp;
    my($a,$b,$c) = split;
    push @{$data[0]}, $a;
    push @{$data[1]}, $b;
    push @{$data[2]}, $c;
}
open(IMG, ">chart.png") or die("chart.png: $!");
binmode(IMG);
print IMG $graph->plot(\@data);
close(IMG);