【Perl 】初心者コーナーPart5

質問なんですけど、よく
open(FILE,"$filename") or die('...');
ってしてますよね？
sleep(1) until open(FILE,"$filename");
みたいなのは駄目なんでしょうか？