#!/usr/bin/perl
   
  
   use XML::Simple;
   use Data::Dumper;
   
   $xml = new XML::Simple;
   
  
  
   $data = $xml->XMLin("news2Obama.txt");
   
   
   
  open $fh_o, '>', 'new_output.xml' or die "can't open file: $!";
   
  $fh_o = Dumper ($data);
   
  print $fh_o;   
   
  
 close $fh_o or die "can't close file:$!";