$ /usr/bin/perl5.00503 -MPOSIX=_exit -e 'BEGIN { print STDERR  "Flooble!\n"; _exit( 1 ); } print "zorch\n"'
Flooble!
$