use autodie;
use Fcntl ':seek';
open my $fh, "<:raw", "your-file-name-goes-here";
seek $fh, 1373, SEEK_SET;
read $fh, $_, 1;  # No sysread!
print $_, "\n";