Select Code to Download

use strict;
use warnings;

print "\n Enter the file name :>";
chomp( my $filename1 = <STDIN> );

my @lines = ();

open my $fh, '<', $filename1 or die "Cannot find the file $filename1: 
+$!";

while (<$fh>)
{
    push @lines, $_;

}

close $fh;

open my $w, '>', 'Result.txt' or die "Cannot open the file Result.txt:
+ $!";

foreach my $line (@lines)
{
...
    }
}
close $w;