#!/usr/bin/perl use strict; use warnings; use HTTP::Request::Common; use LWP::UserAgent; my $url = "http://twitter.com/statuses/friends_timeline.atom"; my $user = "USERNAME"; my $pwd = "PASSWORD"; my $ua = LWP::UserAgent->new; my $u = URI->new($url); $ua->credentials($u->host_port , "Twitter API", $user, $pwd); my $res = $ua->request(GET $url); my $rss = $res->is_success ? $res->content : ""; print $rss;