sub slurp { open my $fh, "<", $_[0] or die "Couldn't open '$_[0]' for reading: $!"; binmode $fh; local $/; my $result = <>; };