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