do 'common.pl';

##</code><code>##

P:\test>echo sub t{ print $global; } >test.pl

P:\test>perl -e" do 'test.pl'; $global = 'Hello world!'; t();"
Hello world!