SWMBO needed to build an .asx playlist (controller) on w32. Her existing tools were a grand PITA.

I occasionally use the following very poor man's script which I wrote quite a lot of time ago, but which also served me fine since.

#!/usr/bin/perl -lpi.bak

use strict;
use warnings;

BEGIN { @ARGV=map glob, @ARGV }

print '<ASX version = "3.0">' if $. == 1;

$_ = <<"XXX";
<Entry>
  <Ref href = "$_" />
</Entry>
XXX

($_ .= <<"XXX"), close ARGV if eof;
</ASX>
XXX

chomp;

__END__
[download]