Select Code to Download

#!\usr\bin perl
use warnings;
...
   say $line;                   # note that your lines already have an
+ end of line, you would probably prefer to use print rather than say
}
close $FILE;

#!\usr\bin perl
use warnings;
...
    print $line;
}
close $FILE;

open my $FILE, "<", "Text2.txt" or die; 
print while <$FILE>;

open my $FILE, "<", "Text2.txt" or die; 
print <$FILE>;