open (IN, "<", $ARGV[0]);
my $i =0;
while (<IN>){$i++}
print $i;