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

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