sub setStdout {
    my $new = shift;
    return select( $new );
}

##</code><code>##

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