rob@budapest:/home/rob# cat test.perl
#!/usr/bin/perl -s

use strict;

{
    no strict;
    print "bar!\n" if ($foo);
}

rob@budapest:/home/rob# ./test.perl -foo
bar!