my $slurp = do {local $/; <HANDLE>};