Select Code to Download

use strict;
my $count=0;
...
print "$line\n"; $count ++;
      }
print "$count\n";