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

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