Select Code to Download

my $data; do {local $/; $data = <FILE> };

my $data = do {local $/; <FILE> };

my $size = -s( $filename );
open my $fh, '<', $filename or die $!;
read( $fh, my $data, $size );