open OUT ...
{
    local $\;
    my $buffer;
    while( read( STDIN, $buffer, 4096 ) ) {
        print OUT $buffer;
    }
}
close OUT;