Help for this page

Select Code to Download

Select or download this

{
  my $max;
  while(<>)
...
    print "Max seen: $max\n";
  }
}