my $content;
{
   local $/ = undef;
   open my $fh, $_[0] or die "Can't open $_[0]: $!";
   $content = <$fh>;
}

##</code><code>##

sub slurp {
   local $/ = undef;
   open my $fh, $_[0] or die "Can't open $_[0]: $!";
   my $slurp = <$fh>;
   return \$slurp;
}
my $content = slurp('filename');
print $$content;

##</code><code>##

use Slurp;
my $content = slurp('filename');