8.6. File::Slurp

Example 8-3. examples/arrays/file_slurp.pl

#!/usr/bin/perl
use strict;
use warnings;

use File::Slurp qw(slurp);

my $filename = shift or die "Usage: $0 FILENAME\n";

my $text = slurp($filename);