open(IFH, $CGI_filename) || die ... my $query = CGI->new(IFH);