Plan 9 from Bell Labs’s /usr/web/sources/contrib/gabidiaz/root/sys/src/cmd/perl/t/lib/compmod.pl
#!./perl BEGIN { chdir 't'; @INC = '../lib'; } my $module = shift; # 'require open' confuses Perl, so we use instead. eval "use $module ();"; if( $@ ) { print "not "; $@ =~ s/\n/\n# /g; warn "# require failed with '$@'\n"; } print "ok - $module\n";