Select Code to Download

my $count = 0;
open($fh,"<",$sentence_file) or die "Could not open $sentence_file: $!
+";
...
    print "Sentence $count\n";
}
close($fh);

#!/usr/bin/perl
use warnings;
...

local $/ = "\015";