#!/usr/local/bin/perl5 -w
$longest = 0;
while (<>)
{
  $linesize = length qq($_);
  $longest = $linesize if $longest < $linesize;
}

print "longest line seen is ", $longest, "\n";