#!/usr/bin/perl -w
###########################################
# twigfilter - Filter XML
# Mike Schilli, 2005 (m@perlmeister.com)
###########################################
use strict;
use XML::Twig;

my $twig= XML::Twig->new(
    PrettyPrint => "indented");

$twig->parsefile("data.xml") or 
    die "Parse error";

my $root = $twig->root();

for my $cd ($root->children('cd')) {
    $cd->att_to_field('serial', 'id');
    $cd->first_child('artists')->delete();
    $cd->set_gi("CompactDisc");
}

$root->print();