Select Code to Download

#!/usr/bin/perl;

...
        read $fh, $buf, $block_size;
    }
};

file size: 134217728, block size: 8192, blocks: 16384
writing file...
...
timing random seek with empty disk cache
timethis 1: 93 wallclock secs ( 1.29 usr +  1.15 sys =  2.44 CPU) @  0
+.41/s (n=1)