> > ステートメントの末尾が不正ですヽ(´ー｀)ノ
> Perlでそんなメッセージ出るのかヽ(´ー`)ﾉ

MoveFileEx($sname,"${sfname}\\${sfile}",[]) || die "fault copy $sfile: fileLastError()";

ああわかったよ、この行がおかしかったんだ。初歩的ミス。
引数1が $sname じゃなくて $sfile じゃなきゃいけなかったんだ。
動くようになったよ～。次の書き込みで完成版を披露するよ～。

参考：2001/03/23(金)21時09分17秒