my $slurp = join '', ;