Help for this page

Select Code to Download

Select or download this

my $strict_refs = not eval { no warnings; ${'var'}; 1 };
my $strict_subs = not eval 'no warnings; ThisDoesNotExist; 1';
my $strict_vars = not eval 'no warnings; $ThisDoesNotExist; 1';

Select or download this

$|=1;

...
   print "6b: $^W\n";  # 1
   print "\n";
}