my $lines;
$lines++ while <FILE>;