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

[szabgab]

Nice. Can you make this work with strict as well?

[salva]

use strict;
use warnings;

use Data::Dumper;

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

foo();
print Dumper \@INC;

[ikegami]

Sure:

no strict 'refs';
unshift @{ 'INC' }, ...;

Similar,

unshift @{ $::{INC} }, ...;

unshift @{ *INC }, ...;

These might be considered the same as @INC, or maybe not:

unshift @::INC, ...;

unshift @main::INC, ...;