いろいろ言われる前に対策しておこう
・・・ってか、どういうシチュかがわからん
もっと別で対策できそうだけど・・・

my $count = 0;
until (mkdir("./lock")) {
　　if (++$count > 5) { exit; }
　　sleep(1);
}
if (-e $file && -f $file && -r $file) { open (IN, $file); }
rmdir("./lock");