$SIG{'FOO'} = sub { do_foo; };