#!/usr/bin/perl -w
#
# Perform skeleton remapping for given mesh
#

use XML::TreeBuilder;
my $file = $ARGV[0];
my $tree = XML::TreeBuilder->new();
$tree->parse_file($file);