die

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

use if ($^O eq 'VMS'), vmsish => 'hushed';
exit 1;  # exit because die() can be noisy