open (my $fhout, '>', "./test_out.file") || die "$!";