#!/usr/bin/perl

use XML::Simple;
use Data::Dumper;
use utf8;
open (INPUT, "<:utf8", "w.xml") or die "Can't open";

my $xml = new XML::Simple (KeyAttr=>[]);
my $afWN = $xml->XMLin("wnafr.xml");

open (OUTPUT, ">:utf8", "Output.txt") or die "Can't open";

print OUTPUT Dumper($W);

foreach my $e (@{$W->{XML}})
{
    	print "I.D.:", $e->{ID}, "\n";
	print "Part of Speech: ", $e->{POS}, "\n";
        print "Literal: ", "$e->{SYNONYM}{LITERAL}{content}", "\n";
	print "\n";
}

close (OUTPUT);