open my $fhout, '>', "./test_out.file" or die "$!";