open( my $fh_out, '>', $xmlFile ) or warn "WARNING: Could not Open *$xmlFile*\n"; open( my $fh_out_dmp, '>', $dumperFile ) or warn "WARNING: Could not Open *$dumperFile*\n"; print $fh_out $xml; print $fh_out_dmp Dumper $rhDiffResult; close $fh_out; close $fh_out_dmp;