I haven taken a look at the code and the XML document and tried to run it. I see many points for improvements, so many that I don't quite know where to start;)

• Let's start by adding:

  use strict; 
  use warnings;
  [download]

  at the top of the file. This can help you catch common mistakes, unsafe programming constructs etc.
• Next think about the variable you want to use and declare them with "my" for example

  my $xml = "e:\cars\input.xml";
  [download]

  There are variables in your program which are never used.
• You might want to use arrays instead of variables $image1...$image12 or $add, $add2...$add6.
• use the 3 argument version of open function, see hereunder.
• Test open, close and the print statements for failure, for example

  open (FILENAME,">", $add3); or die "Can't open $add3 $!";
  [download]

• The sample XML file you provided is not well-formed. Apart from that some of the tag names, e.g. the <Images> construct looks a bit strange, i.e. the <Image_1> to <Image_11> tags.

While your approach should work I am going to suggest a different approach all together. XML to CSV sounds like a standard application of XSLT to me. See Sal Mangano's XSLT Cookbook, it has a recipe for transforming XML into delimited data. There are modules on CPAN to do XSLT processing.

HTH
Harry

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.