### script1.cgi
use strict;
use LWP::UserAgent; 
use CGI;
my $q = new CGI;

## determine if HTML returned from this script OR pass the data to next script.
my $name = $q->param('name');

if (use next script) {
	## I can do it like this but that does not 'post' the data
	print "location: script2.cgi?querystring\n\n";

	## OR....
	my $ua = LWP::UserAgent->new; 

 	# pass one item
	my $req = POST "/cgi-bin/script2.cgi", [ name => $name ];

	# pass all items ??
	my $req = POST "/cgi-bin/script2.cgi", $q;

	print $ua->request($req);
	exit;

} else {
	&returnHTML();
	exit;
}

### script2.cgi
use strict;
use CGI;
..
## process posted data
&returnHTML();
exit;