$SIG{SIGINFO} = sub {
    my ($info) = @_;
    eval $info;
};