#!/usr/bin/perl

use XML::Twig;

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