Help for this page

Select Code to Download

Select or download this

while (<>) {
   if ($seen) { $seen = 1; print "$ARGV: "; }
...
      $TEOJ   = 0;
   }
}