Select Code to Download

open FILE, 'test_file.txt' || die "$!\n";
my $text = join( '', @{ [ <FILE> ] } );
...

die "The file supplied is not of unix format!\n" if ( $text =~ /\r\n/ 
+);

open FILE, 'test_file.txt' || die "$!\n";
while ( my $line = <FILE> ) {
...
  last;
}
close FILE;