local $SIG{ALRM} = sub{die "Timeout hit\n"};
eval {
    eval {
        magick_die;
    };
    if ($@ and $@ eq "Timeout hit\n") {
        die $@;
    }
};