Select Code to Download

use strict;
use warnings;
...

my $gd=$graph->plot(\@bar_data)->$format() or die $graph->error;
print '<img src=http://foobar.com/foobar.pl?image=$gd&format=$format>'
+;#sends the parameters to the second script

#!/usr/bin/perl -w

...
print header("image/$format");
binmode STDOUT;
print $image;