Select Code to Download

open FILEHANDLE, 'somefile.txt' or die $!;
my $string = do { local $/; <FILEHANDLE> };

open FILEHANDLE, 'somefile.txt' or die $!;
my $string = '';
while (<FILEHANDLE>) {
    $string .= $_;
}

my $scalar = <FILEHANDLE>;    # one line
my @array  = <FILEHANDLE>;    # whole file

undef $/;
my $scalar = <FILEHANDLE>;   # whole file

local $/;

local $/ = undef;

$/ = undef;           # Danger Will Robinson! Danger!

my $string = do {local $/;<DATA>};

my $data = do {local $/;<DATA>};
my $template = HTML::Template->new(scalarref => \$data);

my $template = HTML::Template->new(filehandle => \*DATA);