use strict;
use warnings;
use Carp;

# other use statements here...

$SIG{__DIE__} = sub { Carp::confess @_ };

# remainder of your code here...