open(P,'./from.pl|');
while (<P>) {
   print;
   $count++;
}
close(P);
print "$count\n";