Need more of your code snippet to figure out context.
Mainly, what is
$fhin your script?
We are left to assume you did a
my $fh = new Harness; or something, but somehow I bet that's not right.
Especially given that there doesn't (according to
Ultra) appear to be an
open()method in the
Test::Harnessmodule.