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

my $field = $query->param('foo_field');
print $field, "\n";

__OUTPUT__

foo's_value