$ perl -le 'our $foo = "whatever"; print $main::foo;'
whatever