Perl コーディング初心者質問コーナー Part29

CGI設置で困っています。
仕組みの方は理解しているのですが…
どうやら配布されているPerlが壊れていて困ってます。
★★★★★★★★★★★★★★★★★★★★★★★

# ロック解除 #
#--------------#
sub unlock {
rmdir($lockfile);
$lockflag=0;
}

★★★★★★★★★★★★★★★★★★★★★★★
というPASSをかけるPerlなんですが…

rmdir($lockfile);

↑↑ここ

という記述がおかしいようです。
どのように直したらよいのでしょう？
教えてください！！