#!/usr/bin/perl
# listurl.pl -- list url to stdout
use strict;
use warnings;
use diagnostics;

listurl($_) for (map {glob} @ARGV);

sub listurl {
    open(URL,$_[0]) or die "Couldn't open $_[0]: $!";
    while (<URL>) {
        print $1,"\n" if (/^URL=(.*)/);
    }
}