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