shell> cat > tmp.pl
$foo = "a string";
1;
^D
shell> perl -e 'use strict; require "tmp.pl"; print $::foo, "\n"'
a string