use CGI;
my $q = CGI->new();

open FILE, "> cgi-data.txt" 
 or die "Can't open file for write: $!\n";
$q->save(FILE);
close FILE;