die_head_end

来自「source of perl for linux application,」· 代码 · 共 10 行

print <<DUMMY_TEST;
ok 1
ok 2
ok 3
ok 4
DUMMY_TEST

use if $^O eq 'VMS', vmsish => 'hushed';
exit 1;