#!/usr/bin/perl

# use module
use XML::Simple;
use Data::Dumper;
open(FILE,">Asdf.txt") or die "Can't open the file";
open(ASDF,">zxcv.txt");
# create object
$xml = new XML::Simple;

# read XML file
$data = $xml->XMLin("E:\\progs\\my perl scripts\\resources.xml");

# print output
%new = Dumper($data);
print FILE %new;