1#!perl -T 2 3# This runs 01SelfLoader.t under taint. 4 5(my $file = __FILE__) =~ s/[\w.]+\z/01SelfLoader.t/; 6unshift @INC, "."; 7do $file or die "Cannot run $file: ", $@||$!; 8