flockがうまくいきません。教えてください。

if (open(MBOX, ">>".$votename)) {
　print "ファイルを開きました。<br>\n";
} else {
　print "ファイルを開けません。<br>\n";
　die "Can't open mailbox: $!";
}
if (flock(MBOX,$LOCK_EX)) {
　print "ファイルをロックしました。<br>\n";
} else {
　print "ファイルをロックできません。<br>\n";
}
この結果、
ファイルを開きました。
ファイルをロックできません。
になりました。