#!/usr/bin/perl -w
use XML::Twig;

my $twig=XML::Twig->new(
 	twig_handlers => { '_all_' => sub { $_ }},
	PrettyPrint => 'record', # output will be nicely formatted
	EmptyTags   => 'html',   # outputs <empty_tag />
);

$twig->parsefile($ARGV[0]);
$twig->print;
