#!perl -T

# This runs 01SelfLoader.t under taint.

my $file = __FILE__ =~ s/[\w.]+\z/01SelfLoader.t/r;
unshift @INC, ".";
do $file or die "Cannot run $file: ", $@||$!;