sub usleep {
    my $time = shift;
    return select undef, undef, undef, $time;
}