Select Code to Download

use CGI;

my $query = CGI->new();
...
open(FILE,">>output") || die $!;
$query->save(FILE);
close(FILE);