my $count = 0;
$count++ while <FILE>;

##</code><code>##

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