You could wrap it in a block:

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

Or use a state variable (Perl 5.10 or 6 only, I believe)