Select Code to Download

# Perl >= 5.10
my $pid=fork() // die "Can't fork: $!";
...
#                                      12345
# just 5 extra characters - 10 less than manually
# and no wrapper needed

sub def_or_die
{
...
        die Carp::some_magic_helper_function($msg);
    });
}

sub def_or_carp
{
...
        Carp::carp($msg);
    });
}

sub def_or_carp
{
...
        }
    });
}