open (IN, "<", $file) or die $!;
my $cgi = CGI->new(IN);
close(IN);