#!/usr/bin/perl

use strict;
use warnings;

use XML::Simple;
use Data::Dumper;

my $xml = new XML::Simple;

my $data = $xml->XMLin("news2Obama.xml");

open (FH , '>', 'new_output.txt') or die "can't open file: $!";
	my $fh_o = Dumper ($data);
	print FH $fh_o;   
close FH or die "can't close file:$!";