select STDERR; $|=1;
    select STDOUT; $|=1;
    use FileHandle;
    my $LOG_FH = new FileHandle($logfile, "w");
    $LOG_FH->autoflush;

    open(DUPOUT, ">&STDOUT") or die "Couldn't dup STDOUT: $!\n";
    open(DUPERR, ">&STDERR") or die "Couldn't dup STDERR: $!\n";

    use Filter::Handle qw/subs/;
    our $FILTER_STDOUT = sub 
    { local $_ = "@_";
      print DUPOUT $_; 
      sprintf "[STDOUT]: %s", "@_"
        if (defined $LOG_FH && $LOG_FH->opened);
    };  
    our $FILTER_STDERR = sub 
    { local $_ = "@_";
      print DUPERR $_; 
      sprintf "[STDERR]: %s", "@_"
        if (defined $LOG_FH && $LOG_FH->opened);
    };  
    
    ## Call Filter to tie the filehandles
    ## Call UnFilter to untie the filehandles (don't care)
    Filter \*STDOUT, $LOG_FH, $FILTER_STDOUT;
    Filter \*STDERR, $LOG_FH, $FILTER_STDERR;