$file = __FILE__; $file =~ m|([^/.]*)\.t$| or die; @ARGV = "pari-2.1.1/src/test/32/$1"; do 'test_eng/Testout.pm'; die if $@;