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