$ cat ~/.emacs.d/snippets/cperl-mode/slurp.open
# -*- snippet -*-
#key: slurp
#group: slurp
#name: Open and slurp
# --
my $${1:variable} = do {$>
local $/;$>
open( my $${2:fh}, q{<}, ${3:$WHAT} )$>
  or die qq{Can't open "$3": $!\n};
<$$2>;$>
};$>