Select Code to Download

{
    my $previous_default = select(STDOUT);  # save previous default
...
    $|++;                                   # autoflush STDERR, to be 
+sure
    select($previous_default);              # restore previous default
}