use strict;
use warnings;

my $fileName = "sample.dat";
open my $inFile, '<:raw', $fileName or die "Can't open '$fileName': $!\n";

my $loc = 23;
my $len = 20;
my $bytes;

seek $inFile, $loc, 0; 
read $inFile, $bytes, $len;

...