Select Code to Download

$/ = "\n";
my $count;
open (FH, "myfile.text") || die "Cannot open file: $!";
$count++ foreach (<FH>);
close FH;