open my $fh, '+>>', $_ or die "Open failed: $!\n"; binmode $fh; seek $fh, (-s $_) - 0xC2, 0 or die "Can't seek: $!"; printf "Found myself at position 0x%x out of 0x%x\n", tell($fh), -s $_; print $fh (pack'C[4]', @vertAlign);