$ perl  line_count.pl
$VAR1 = {
          './sum.pl' => '19',
          './summary.pl' => '16',
          './strict.pl' => '15',
          './schwartz2.pl' => '13',
          './sort_hash.pl' => '12',
          './separat.pl' => '28',
          './subdiscard3.pl' => '12',
          './schwartz.pl' => '27',
          './subdiscard2.pl' => '54',
          './scope.pl' => '16',
          './serv.pl' => '28',
          './shuffle.pl' => '21',
          './subdiscard.pl' => '23'
        };
total size = 284 lines.