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