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

##</code><code>##

foo=bar
baz=biz