>perl -wle"$SIG{INT}=sub{}; sleep; print 'OK'"