* replaced die with Carp::confess