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