in reply to Re^2: Is this code secure, can I test it on my machine?
in thread Is this code secure, can I test it on my machine?

use strict;
use warnings;

use Data::Dumper;

sub foo {
  use constant foo1 => $^H = 0;
  push @{reverse 'CNI'}, 'hello';
}

foo();
print Dumper \@INC;

[download]

In Section Seekers of Perl Wisdom