sub slurp {
  my $self = shift;
 
  CORE::open my $file, '<', $$self or croak qq{Can't open file "$$self": $!};
  my $ret = my $content = '';
  <b>while ($ret = $file->sysread(my $buffer, 131072, 0)) { $content .= $buffer }</b>
  croak qq{Can't read from file "$$self": $!} unless defined $ret;
 
  return $content;
}