#---------------------------------------
use strict; use warnings; use diagnostics; 
use Benchmark qw(:all);

my $var;
cmpthese(1000000, { 
test1 => 'use Fcntl; sysopen (my $filea, "afile.jpg", O_RDONLY); 
sysread $filea, $var, 500;',

test2 => 'open (my $fileb, "afile.jpg"); 
read $fileb, $var, 500;',
 }
)
#--------------------------------------------