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

##</code><code>##

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