#!/usr/bin/perl -w

require LWP::UserAgent;

#$indirizzorss is your rss address 
$indirizzorss =             "http://twitter.com/statuses/friends_timel
+ine/xxxxxx.rss";
$nummess= 8; #max number of post to show

my $ua = LWP::UserAgent->new;
$ua->agent('WizTwitterBot/1.0');
$ua->timeout(10);
$ua->env_proxy;
 
sub pausa #mette in pausa il programma prima di uscire
{
   print "\nPremi Invio per continuare\n";
   my $pausa = <STDIN>;
} #fine subroutine pausa
  

sub catturaxml
{
    $codice = shift;
    $cont = shift;
  
    while (($codice =~ m/<title>(.*)<\/title>/g)&&($cont>0))
    {
      my $contenuto="$1";
      print "-"x36,"\n";
      print "$contenuto\n";
      $cont--
    }
}


$response = $ua->get("$indirizzorss");

if ($response->is_success)
{   
    $codicexml = $response->content;
    catturaxml($codicexml,$nummess);
    pausa;
}
else
{
    die $response->status_line;
}