#!/usr/bin/perl
use strict;
use FileHandle;

my $fn = 'bin/td';

my $fh = FileHandle->new($fn, '+< :raw') or die "$fn: $!";
$fh->binmode(':raw');
$fh->seek(0x13d323b, 0);
my $buf = "\x90\x90";
$fh->write($buf, 2);
$fh->seek(0x13d3246, 0);
$buf = "\x90\xe9";
$fh->write($buf, 2);
$fh->close();