1 while <FILE>;
my $count = $.;