1 2 3 4 5 6 7
#!./perl # force perl-only version to be tested $List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1; (my $f = __FILE__) =~ s/p_//; do $f; die $@ if $@;