ファイルをロックしてオープンするサブルーチンを作ろうと思い

sub lock_open{
    my $file=shift(@_);
    #ここにlockの処理
    open(OUT, ">>$file");
    return OUT;
}

としたのですが、
Bareword "OUT" not allowed while "strict subs" ...
と怒られてしまいます。openの前に my OUT としても
No such class OUT ...
と怒られるのですが、perl的にはどのようにするのが正しいのでしょうか。