#!/usr/bin/perl
for (<>) {
	chop;
	$l = length if (length > $l);
}
#print "The longest line is $l chars, not counting the final NL.\n";
print "$l\n";
exit 0;
#
# Find the length of the longest line in the input, which may be files
# named  on the command line, or stdin.  Note that the length does not
# include the final newline.  Note also  the  wordy  print  statement,
# which we usually don't want because this program is invoked by other
# programs that just want the number.
#