use Fcntl;
use Benchmark qw(cmpthese);
cmpthese(1000,
     {
      slurp=>sub{
        open(SITE, "/usr/share/dict/words");
        my $xml;
        local($/);
        undef $/;
        $xml = <SITE>;
        close(SITE);
      }
      ,
      sys=>sub{
        sysopen(SITE, "/usr/share/dict/words", O_RDONLY);
        sysread SITE, my $xml, -s SITE;
        close(SITE);
        }
      ,
      sysby128=>sub{
        sysopen(SITE, "/usr/share/dict/words", O_RDONLY);
        my $xml = '';
        while (sysread(SITE, $xml, 1024 * 128, length($xml))) { };
        close(SITE);
        }
      ,
      sysby256=>sub{
        sysopen(SITE, "/usr/share/dict/words", O_RDONLY);
        my $xml = '';
        while (sysread(SITE, $xml, 1024 * 256, length($xml))) { };
        close(SITE);
        }
      ,
      sysby512=>sub{
        sysopen(SITE, "/usr/share/dict/words", O_RDONLY);
        my $xml = '';
        while (sysread(SITE, $xml, 1024 * 512, length($xml))) { };
        close(SITE);
        }
      }
);