perl -lwe 'sub our { print shift } $foo = "bar"; our $foo'