Select Code to Download

use CGI;
my $q = CGI->new();
...
 or die "Can't open file for write: $!\n";
$q->save(FILE);
close FILE;