opml2links.pl

use strict;
use warnings;
use LWP::Simple;
use XML::Simple;

my $url = shift or die "Usage: $0 url";
my $content = get $url or die "Cannot get $url";

foreach my $entry (@{ XMLin($content)->{body}{outline}{outline} }) {
    print $entry->{htmlUrl} . "\n";
};