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

##</code><code>##


my $capture = qx($Cmd); 
print $capture . "\n";