local $SIG{ALRM} = sub {
    my @context = caller 0;
    die "timeout: in $context[1] at line $context[2]\n"
    };