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

eval {
        open WP, '-|', "/apps/mysql/bin/mysql -hhost -ppasswd -uhost -
+D mysearch_retention -q -e 'select entry_week, week_num, cbid,live, s
+earching, entry_week_total, tot_search, ta, part from mysearch_part_t
+rack' ";
        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.p
+l -$! \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>/de
+v/null" or die "can't fork retention_mywebsearch.pl -$! \n";
        open RP6,  '|-', "perl bin/retention_mywebsearch_specific_trac
+k.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;
[download]