Select Code to Download

local $/= undef; # read entire file at once
my @text=<FH>;

my $data;
open(FH,'<',$file) || die "Oops $!";
local $/ = undef;
$data = <FH>;
close(FH);

use strict;
use warnings 'all';
...
my @data = <FH>;
close (FH);
print $data[0];