my $filename = 'graph.png';
open my $fh, '>', $filename or die "opening $filename: $!";
binmode $fh;
print $fh $mygraph->plot(\@data)->png or die "writing $filename: $!";
close $fh or die "closing $filename: $!";