Select Code to Download

SAVING THE STATE OF THE SCRIPT TO A FILE:

    $query->save(\*FILEHANDLE)

my $q = CGI->new(\*IN);