#!/usr/bin/perl -w

use XML::Twig;

my $file = $ARGV[0];
my $twig= new XML::Twig(TwigRoots => {head => 1});
$twig->parsefile($file);
$twig->print;