use Filter::Handle qw(subs);
Filter \*STDOUT, \&filter_sub;
Filter \*STDERR, \&filter_sub;

sub filter_sub
{
    #sub for Filter::Handle
    #filter out the password if we see it so password doesn't get strewn all over log files
    local $_ = "@_";
    my $pass = $config{password};
    s/$pass/xxxxx/g;  
    #write everything to logfile then to pass to filtered file handle
    print LOGFILE $_;
    $_;
}