如何重写Perl的open()函数,但使用相同的文件句柄进行测试?

if ( !open( F, $filetoopen) ){
    # do stuff with <F>
}

BEGIN {
    *CORE::GLOBAL::open = sub { open(F,$testfiletoopen); };
};

... 它确实起作用了,测试中的代码从我的测试文件中读取完毕。但是,只要我使用与测试中的代码相同的文件句柄名称“F”,它就可以继续工作。

如果有一种方法可以使测试代码不那么脆弱,这样如果在实时代码中更改了filehandle名称,测试就不会失败?

谢谢