#!/bin/env perl

open MIOFILE, 'file_name';
while ($riga = <MIOFILE>) {
  $numero_righe++;
}
print "$numero_righe\n";