use autodie 2.06;
open my($fh), '<:raw', $file;
while( my $read = read $fh, my($seg),1024 ){
    print "i have read $read out of 1024\n";
    print "length is ", length $seg,"\n";
}
close $fh;
[download]