Select Code to Download

my $h_b = {};
my $x   = eval {
...
} // 'unknown';

print $x;

sub catch_undef (&) {
    my $code_ref = shift;
...
        $code_ref->()
    };
}