手作業でslurp

Perl6::Slurpは便利だけれど標準でないモジュールを多用するのは気が引ける.仕方ないので手作業でやろうと思った.ので,これからは手動で書くことにする.しかし,実はslurpに頼りっぱなしで,手動の方法を知らなかった.<>がリストコンテキストとスカラーコンテキストで違う挙動をするのを利用して,空文字でjoinしちまえばいいんじゃね?

open my $IN, "<", $filename or die "Cannot open $filename\n";
my $content = join "", <$IN>;
close($IN);

うまくいきました.