$ perl
my $gotit = eval q{ $do_i_got_strict_r975539 = 1; } ;
my $err = $@;
$gotit and warn q{I dont got strict vars};
not($gotit) and $err and warn q{I do got strict vars};
__END__
I dont got strict vars at - line 3.

$ perl
use strict;
my $gotit = eval q{ $do_i_got_strict_r975539 = 1; } ;
my $err = $@;
$gotit and warn q{I dont got strict vars};
not($gotit) and $err and warn q{I do got strict vars};
__END__
I do got strict vars at - line 5.
[download]