sub slurp { my $file = shift or return undef; local $/ = undef; open( FOO, $file ) or return undef; my $buffer = ; close FOO; return \$buffer; }