Disk size:            21

Inlined, binmode:     21
Slurp,   binmode:     21

Inlined, not binmode: 18
Slurp,   not binmode: 21

Slurp:                21


Slurp is different from inlined version.

##</code><code>##

C:\>perl -MFile::Slurp -le "print $File::Slurp::VERSION"
9999.09

C:\>perl -v

This is perl, v5.8.6 built for MSWin32-x86-multi-thread
(with 3 registered patches, see perl -V for more detail)

##</code><code>##

use strict;
use warnings;

use Fcntl qw{:DEFAULT};
use Data::Dump qw{dump};

sysopen my $FILE, 'file', O_RDONLY or die $!;

my ($temp, $buf);

while(1) {
    my $read_cnt = sysread ($FILE, $temp, 1024);
    $buf .= $temp;
    last unless $read_cnt;
}

print dump($buf);