% perl -le '$|=1; $SIG{ALRM} = sub { print q(Goosed!) }; alarm 2; eval { <> }; print q(done)'