use strict;
use warnings;
use CGI qw/:standard *table *Tr *td/;
use CGI::Carp qw(fatalsToBrowser);
use Date::Manip; 
use DBI;
use GD::Graph;
use GD::Graph::bars;
use GD::Graph::lines;
use GD::Graph::histogram;
...
(snip HTML and form generation code plus database interrogation code)
...
	my $graph=GD::Graph::bars->new();
	my $format=$graph->export_format;
			$graph->set	(
							  x_label=>'Uploaders',
y_label=>'Total number of uploads'
					);		
			@bar_data=(\@x-axis, \@bars);

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

##</code><code>##

#!/usr/bin/perl -w

use strict;
use warnings;
use CGI qw(:standard);

my $image=param('image');
my $format=param('format');

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