#!/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__