>>392
use Cwd; my $olddir = cwd;
という行があると思う。
FTPを使わないならこの行をコメントにするか削除する。
AAAのPerlはCwd.pmが使えないようだ。