use Carp qw( croak );
$SIG{__DIE__} = sub { croak @_ };