Select Code to Download

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

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