Select Code to Download

my $string = do{
  open my $fh, '<', 'filename' or die $!;
  local $/ = undef;
  <$fh>;
};

use File::Slurp;
my $text = read_file('filename');

use File::Slurp;
my @lines = read_file('filename');