$ cat script.pl
#!/usr/bin/perl
print "unsafe?\n";

$ perl -T -e'$ENV{PATH}=""; system "script.pl";'
unsafe?

##</code><code>##

$ cat Mod.pm
print "unsafe?\n";
1;

$ perl -T -e'@INC = "."; require Mod;'
unsafe?