open(FILE, "<data.txt") or die "gah!";
my $query = CGI->new(FILE);
...