use POSIX qw[ _exit ];

...

# avoid perl exit which hangs in some circumstances
POSIX::_exit(0);