#!/usr/bin/perl -w
use strict;
my $totalLength = 0;
while(<>){$totalLength += length($_);}
print "Last line number was $.\n";
print "Total length was $totalLength\n";