The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

__END__
# mg.c
# NAME Perl_magic_setsig
$SIG{_HUNGRY} = \&mmm_pie;
warn "Mmm, pie";
EXPECT
No such hook: _HUNGRY at - line 2.