#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;
use XML::Twig;
my @xhash=();
my $xhash=\@xhash;
my $file= $ARGV[0];
$xhash = XML::Twig->new();
$xhash -> parsefile('$file');
$xhash -> print;