if( $ENV{PERL_CORE} && !$ENV{HARNESS_ACTIVE} ) { print "1..0 # Skip: t/TEST needs numbers\n"; exit; } print <