Help for this page

Select Code to Download

Select or download this

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