#!/usr/bin/perl -w

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

# get RSS data
my $raw = get('http://www.fremontvirtualoffice.com/rmmame-dep.xml');

# create object
my $xml = new XML::Simple;

my $data = $xml->XMLin($raw);

my @items = @{$data->{noticia}};


for my $hash ( @items ) {

  my $title       = $hash->{titulo};
  my $article     = $hash->{texto};
  my $date        = $hash->{fecha};
  my $time        = $hash->{hora};
  my $caption     = $hash->{foto}->{pie};
  my $photo_big   = $hash->{foto}->{fotogrande};
  my $photo_small = $hash->{foto}->{fotomedia};

 print "TITLE: $title\n";
 print "DATE: $date\n";
 print "TIME: $time\n";
 print "ARTICLE: $article\n";
 print "PHOTO: $photo_big\n";
 print "CAPTION: $caption\n";

}
[download]