use URI;
use Web::Scraper;

my $tweets_url = "http://twitter.com/%s";
my $tweets_query = scraper {
    process 'li[data-item-type="tweet"]', 'tweets[]' => scraper {
        process '*[data-name]', 'name' => '@data-name';
        process '*[data-time]', 'time' => '@data-time';
        process '.content p',   'text' => 'TEXT';
    };
};

my $tweets = $tweets_query->scrape(
    URI->new(sprintf $tweets_url, $ARGV[0]));

for my $tweet (@{$tweets->{tweets}}[0..4]) {
    last if !$tweet;
    my $date = strftime('%b %d', localtime $tweet->{time});
    print "\n$tweet->{name} tweeted on $date:\n  $tweet->{text}\n";
}