#!/usr/bin/perl -w
use strict;
use XML::RSS;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->timeout( 25 );
$ua->proxy( 'http', <YOUR HTTP PROXY> );
my $response = $ua->get('http://zx.pk.ru/fido_export.php');
if ($response->is_success)
{
my $rss = new XML::RSS;
$rss->parse( $response->content );
foreach my $item (@{$rss->{'items'}})
{
print "title : " . $item->{ 'title' } . "\n";
print "link : " . $item->{ 'link' } . "\n";
print "category : " . $item->{ 'category' } . "\n";
print "dc:creator: " . $item->{'dc'}->{'creator'} . "\n";
print "dc:date : " . $item->{'dc'}->{'date' } . "\n";
print "content : " . $item->{'http://purl.org/rss/1.0/modules/content/'}->{'encoded'} . "\n";
}
}
else
{
die $response->status_line;
}