Shell Programming and Scripting

<xml>
    <track>
        <path>../Songs/titile/song1.mp3</path>
        <title>song1</title>
    </track>
    <track>
        <path>../Songs/titile/song2.mp3</path>
        <title>song2</title>
    </track>
</xml>

_url="http://www.servername.com/mp3s" export _url

find . -name '*.mp3' |
  while IFS= read -r; do
    _f="${REPLY#*/}"
    printf '<file>%s/%s</file>\n' "$_url" "$_f" > "${_f%.*}.xml"

#!/usr/bin/perl

use strict;
use warnings;
use XML::Twig;
use MP3::Info;


my @files = @ARGV? @ARGV : (<>);
chomp @files;

my $xml = XML::Twig->new(pretty_print => 'indented');
$xml->parse(q#<mp3_list/>#);

sub make_elements {

    my $H = get_mp3tag(shift);
    my @L;
    while (my ($k, $v) = each (%$H) ){
        push @L, my $elt = XML::Twig::Elt->new($k, $v);
    }
    return @L ;
}

foreach my $file (@files) {
    my $id = XML::Twig::Elt->new('id', make_elements($file));
    my $elt = XML::Twig::Elt->new('file', {name=>$file}, $id);

    $elt->paste('last_child', $xml->root);

}

$xml->flush;

$ ls | mp3xml.pl       
<mp3_list>
  <file name="01_N.W.O.mp3">
    <id>
      <YEAR>1992</YEAR>
      <ARTIST>Ministry</ARTIST>
      <COMMENT></COMMENT>
      <TITLE>N.W.O.</TITLE>
      <ALBUM>Psalm 69: The Way to Succeed &amp; the Way to Suck Eggs</ALBUM>
      <GENRE>Metal</GENRE>
      <TRACKNUM>1</TRACKNUM>
      <TAGVERSION>ID3v1.1 / ID3v2.3.0</TAGVERSION>
    </id>
  </file>
  <file name="02_Just_One_Fix.mp3">
    <id>
      <YEAR>1992</YEAR>
      <ARTIST>Ministry</ARTIST>
      <COMMENT></COMMENT>
      <TITLE>Just One Fix</TITLE>
      <ALBUM>Psalm 69: The Way to Succeed &amp; the Way to Suck Eggs</ALBUM>
      <GENRE>Metal</GENRE>
      <TRACKNUM>2</TRACKNUM>
      <TAGVERSION>ID3v1.1 / ID3v2.3.0</TAGVERSION>
    </id>