if ($error) { $die_on_error ? die : warn->($error); } #### sub my_die{die "I died\d"} #### $my_die = sub {die};