use strict;
use warnings;

my $int2  = 2147483648;
my $int4  = 2147483648 * 2;
my $int8  = 2147483648 * 4;
my $int16 = 2147483648 * 8;

print "int2  $int2\n";
print "int4  $int4\n";
print "int8  $int8\n";
print "int16 $int16\n";

## set up data in memory
my $tm=time;
my $file= $ARGV[0];
my $data;
{
    open my $fh, '<', $file or die;
    local $/ = undef;
    $data = <$fh>;
    close $fh;
}

## report load statistics
my $str="XYZ";
my $lx=length($data);
my $tmx=time-$tm;
my $r=$lx/$tmx;
print "File $file cached $lx bytes in $tmx seconds @ $r bs\n";