Select Code to Download

    sub Filter {
      my $fh = shift;
      tie *{ $fh }, __PACKAGE__, @_;
    }

    select STDERR; $|=1;
    select STDOUT; $|=1;
...
    ## Call UnFilter to untie the filehandles (don't care)
    Filter \*STDOUT, $LOG_FH, $FILTER_STDOUT;
    Filter \*STDERR, $LOG_FH, $FILTER_STDERR;