open my $fh, "<", $fname
  or die "Couldn't open $fname: $!";
binmode $fh;
seek $fh, 258, 0;
read $fh, (my $buf), 1;
$buf = unpack "c", $buf;
...