Select Code to Download

my $all = do { open my $fh, '<', $filename or die "$filename: $!";
    local $/; <$fh> };

my @lines = do { open my $fh, '<', $filename or die "$filename: $!";
    <$fh> }; chomp @lines;