my $slurp = join $/, ;