if ($@) {
   require Carp;
   Carp::croak(...);
}