open MIOFILE, 'file_name';
while ($riga = <MIOFILE>) {
$numero_righe++;
}
print "$numero_righe\n";