my $logdir = "piperead.$str.log";
open LOG, ">$logdir";

eval {
        open WP, '-|', "/apps/mysql/bin/mysql -hhost -pxxxxx -uxxxxx -D mysearch_retention -q -e 'select entry_week, week_num, cbid,live, searching, entry_week_total, tot_search, ta, part from mysearch_part_track' ";
        open RP1,  '|-', "perl bin/retention_mywebsearch.pl " or die "can't fork retention_mywebsearch.pl -$! \n";
        open RP2,  '|-', "perl report.pl" or die "can't fork report2.pl -$! \n";
        open RP3,  '|-', "perl bin/retention_by_product_n2f.pl 1>/dev/null " or die "can't fork retention_mywebsearch.pl -$! \n";
        open RP4,  '|-', "perl bin/retention_by_product.pl 1>/dev/null " or die "can't fork retention_mywebsearch.pl -$! \n";
        open RP5,  '|-', "perl bin/retention_mywebsearch_part.pl 1>/dev/null" or die "can't fork retention_mywebsearch.pl -$! \n";
        open RP6,  '|-', "perl bin/retention_mywebsearch_specific_track.pl 1>/dev/null" or die "can't fork retention_mywebsearch.pl -$! \n";

};
if ( $@ ) {
        print LOG $@;
        print LOG "\n";
        close LOG;
        exit 1;
}

#skip the header;
my $header = <WP>;

while (<WP>){
        print RP1 $_;
        print RP2 $_;
        print RP3 $_;
        print RP4 $_;
        print RP5 $_;
        print RP6 $_;

}

close WP;
close RP1;
close RP2;
close RP3;
close RP4;
close RP5;
close RP6;
close LOG;