open(P2,"$perl_script2 |");
while(<P2>) {
   print;
}