#!/usr/bin/perl
# https://en.wikipedia.org/wiki/XML_Shareable_Playlist_Format

my $mp3 = shift $1;
if (! -f $mp3) {
  echo "$mp3 not found;"
  exit 1;
}
__DATA__
<?xml version="1.0" encoding="UTF-8"?>
<playlist version="1" xmlns="http://xspf.org/ns/0/">
  <trackList>
    <track>
      <title>Windows Path</title>
      <location>file:///C:/music/foo.mp3</location>
    </track>
    <track>
      <title>Linux Path</title>
      <location>file:///media/music/foo.mp3</location>
    </track>
    <track>
      <title>Relative Path</title>
      <location>music/foo.mp3</location>
    </track>
    <track>
      <title>External Example</title>
      <location>http://www.example.com/music/bar.ogg</location>
    </track>
  </trackList>
  </playlist>