my $cgi = CGI->new();
open (FH, ">", $outfile) or die $!;
$cgi->save(FH);
close (FH) or die $!;