sub catch_undef (&) {
    my $code_ref = shift;
    
    eval {
        use warnings FATAL => 'uninitialized' ;
        $code_ref->()
    };
}