For slurping, I use the following code. I don't know how well it works for gigantic files, but I wouldn't recommend trying, of course.

open(FH, "<$filename");
my $slurp = join(undef, <FH>);
close(FH);
[download]