Select Code to Download

use File::Slurp;
# ...
my $file_data = read_file( 'file.name' );

my $file_data = do { local $/; open(I,'file.name'); <I> };

use File::Slurp;
#...
my @lines = read_file( 'file.name' );

open( I, 'file.name' );
my @lines = <I>;