1#!perl -wT 2 3for $file ('re/subst.t', 't/re/subst.t', ':re:subst.t') { 4 if (-r $file) { 5 do "./$file"; 6 exit; 7 } 8} 9die "Cannot find re/subst.t or t/re/subst.t\n"; 10