BEGIN { *CORE::sleep = sub(;$) { select((undef)x3, shift) } } sleep 0.75;