use XML::Twig;
my $twig=new XML::Twig;
$twig->parsefile($ARGV[0]); $ARGV[0] is input xml file.
$a=$twig->sprint; ##### storing the xml content into a variable.
print $a;