Select Code to Download

use POSIX qw(_exit);
BEGIN { print STDERR "my error message\n"; _exit(-1) }

BEGIN { warn "my error message\n"; exit -1 }