Select Code to Download

if ($error) {
    $die_on_error ? die : warn->($error);
}

sub my_die{die "I died\d"}

$my_die = sub {die};