C:\tmp>echo $xx=5 >inc.pl
C:\tmp>perl -lwe "do 'inc.pl'; print $main::xx"
Name "main::xx" used only once: possible typo at -e line 1.
5