#!/usr/bin/perl
 use XML::Writer;
  use IO::File;

  my $output = new IO::File('>C:\Documents and Settings\ashalatha\Desktop\PEG\Perl scripting\xml\Files\output1.xml');

  my $writer = new XML::Writer(OUTPUT => $output);
  $writer->startTag("FIXML");
  $writer->startTag("PosMntReq", "ReqID" => "18AEXR" ,"TxnTyp" => "1","BizDt"=>"2003-12-04",
		"SetSesID" => "EOD", "TxnTm" => "2003-09-10T00:00:00");
  $writer->endTag("PosMntReq");
  $writer->endTag("FIXML");
  $writer->end();
  $output->close();