#!/usr/bin/perl -w


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

# initialize object

# 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 $fulltext  = $hash->{texto};
  my $date      = $hash->{fecha};
  my $time      = $hash->{hora};

 print "TITLE: $title\n";
 print "ARTICLE: $fulltext\n";
 print "DATE: $date\n";
 print "TIME: $time\n";

}