open (STDIN,"perl p2.pl|") || die "$!";
while(<STDIN>){
  print $_;
}