Or use IO::All, which wraps File::Slurp.

#!/usr/bin/perl

use IO::All;
my $slurp = io->( $path )->slurp();   # slurp a file

my $stdin = io->( '-' )->slurp();     # slurp STDIN
[download]