use CGI;
my $q = CGI->new({foo=>'bar'});
print $q->param('foo'),$/;
{
    local *CGI::param = sub {};
    print "Empty", $/ unless defined $q->param('foo');
}
print $q->param('foo'),$/;