perl -le '$foo ="bar"; package Bar; print ">$foo<";package main; print ">$foo<"'
><
>bar<