my $gif_data = $my_graph->plot(\@data);
open(GIF, '>sample11.gif') or die "Cannot write sample11.gif: $!";
binmode(GIF);
print GIF $gif_data;
close(GIF);