#!/usr/local/bin/perl
require "cgi-lib.pl";
use XML::Simple;
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;

#fetches Radio Times WPMU feed and posts it as a static xml file for NPR to #scrape.

#First, Lets retrieve the feed.

$url = "http://whyy.org/cms/radiotimes/feed/";

$content = get($url);

#Now lets print it to a file:

open (RTFEED, ">/usr/www/docs/rss/rt_npr.xml");
print RTFEED $content;
close(RTFEED);