...
...
...
open (QUERY,'<query.txt');
my $q = new CGI(\*QUERY);
close QUERY;
...
...
open (QUERY, '>query.txt');
$q->save(\*QUERY);
print $q->header();
...
...

##</code><code>##

...
...
...
my $q = new CGI;
...
...
open (QUERY, '>query.txt');
$q->save(\*QUERY);
print $q->header();
...
...