#!/bin/perl
use POSIX;
use FileHandle;
use integer;
autoflush STDOUT 1;

$maxline = 0;
while (<>) {
  if (length > $maxline) { $maxline = length; }
}

print "Max length = $maxline\n";
