Select Code to Download

use strict;
use warnings;
...
}
close $fh;
print "With :crlf, \$count=$count\n";

Without :crlf, $count=10
With :crlf, $count=0