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