my $fhout = shift;