#!/usr/bin/perl

# areenadump <podcast-url>

my $podcast = `wget -qO- $ARGV[0]`;

my @urls = $podcast =~ /<link>(http:\/\/\S+)<\/link>/g;

@urls = grep (!/api/,  @urls);

foreach $url (@urls) {
	system("yle-dl $url");
}