$ cat ~/.emacs.d/snippets/cperl-mode/slurp
# -*- snippet -*-
#key: slurp
#group: slurp
#name: Slurp file-handle
# --
my $${1:variable} = do { local $/; <$${2:fh}>; };