perlの話なんですけど

open(OUT,+>filename.txt);
print OUT "あいうえお\n";
close(OUT);

でfilename.txtが新規作成されますよね。
でも作成場所をトップディレクトリにした場合は
新規作成されません。
どうしたら解決できるかご存知の方おられますでしょうか。
よろしくお願いいたします