#!/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 ;)