Select Code to Download

#!/usr/local/bin/perl
use GD;
...

# Convert the image to PNG and print it on standard output
    print $im->png;

#!/usr/bin/perl 
 
...

  open(GRAPH,">graph1.jpg") || die "Cannot open graph1.jpg: $!\n";
  print GRAPH $graph->gd->jpeg(100);