$ perl -le " use warnings; use strict; my $one = 1; { my $one = 2; print $one; } print $one; "
2
1