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