Select Code to Download

warn $];                               #> 5.024001

...
$one = 1;
warn 'never' until my $one = 666;       # my !
warn $one;                              #> Warning: something's wrong 
+at ...

D:\tmp>perl -MO=Deparse tst_scope.pl
warn $];
...
warn 'never' until my $one = 666;
warn $one;
tst_scope.pl syntax OK

D:\tmp>perl -MO=Concise,-src tst_scope.pl
18 <@> leave[1 ref] vKP/REFC ->(end)
...
tst_scope.pl syntax OK

D:\tmp>