#!/usr/bin/perl

#Modulos a usar
use LWP::Simple;
use LWP::UserAgent;
$ua = LWP::UserAgent->new;

#Accedemos al feed Atom 
$req = HTTP::Request->new(GET => 'https://gmail.google.com/gmail/feed/atom');
$req->header('Accept' => 'text/html');
$req->authorization_basic('usuario_de_gmail', 'clave_de_gmail');
$res = $ua->request($req);

#Imprimimos el contenido
print "Content-type: application/xml\n\n";
print $res->content;