Select Code to Download

while (sysread FILE, $buffer, 4096) {
        $lines += ($buffer =~ tr/\n//);
    }

while (<FILE>) {
  $lines++
}