はじめまして。
移転プログラムは導入したことがないのでまったくわかりません。
移転プログラム自体は、いろいろなサイトで導入されているので、プログラムの問題はないと思います。サーバーに問題がなく、設定が正しければ動くと思うので、プログラムを触る必要はないと思います。設定をよく見直すとよいと思います。

my $townmaster=ReadTown($TOWN_CODE,'getown');
OutError('移転ルートがつながっていません') if !$townmaster;
上のスクリプトで、「if !$townmaster」は、「もし$townmasterという変数が存在しなかったら」という意味です。で、$townmasterは前の行で「$TOWN_CODE」を読み込んでいるようなので、$TOWN_CODEが正しく設定されているか確認してみるとよいと思います。

あまり詳しくなくて、お力になれず申し訳ありません。