Select Code to Download

use File::Slurp;

my $text = read_file( 'filename' );

my $text = do {
  local $/;
...
     or die "Error opening filename for read - $!";
  <$fh>
};