#!/usr/bin/perl
my $lc = 0;
while ( <> ) { $lc++ }
print "$lc\n";