#!/usr/bin/perl

use strict;
use warnings;
use Time::HiRes qw(time);
$| = 1;

my $file = '/path/to/file.pdf';

my $numtests = 1000;

print "using read function\n";
for (my $x = 0; $x < 6; $x++) {
    my $start = time();
    for (my $i = 0; $i <= $numtests; $i++) {
        open(FILE,"<$file") || die $!;
        read FILE, my $data, -s $file;
        close(FILE);
    }
    my $end = time();
    print $end - $start,"\n";
}

print "\ntradtional slurp\n";
for (my $x = 0; $x < 6; $x++) {
    my $start = time();
    for (my $i = 0; $i <= $numtests; $i++) {
        open(FILE,"<$file") || die $!;
        my $data = do { local $/; <FILE> };
        close(FILE);
    }
    my $end = time();
    print $end - $start,"\n";
}

# exit; #<- removed for blazar ;)
[download]