my( $fh, $name ) = @_;