eval { Carp::confess("init") };
$SIG{__DIE__ } = sub { Carp::confess };