use My::Query qw(register_query);

register_query 'recent_tweets' => {
    url   => "http://twitter.com/%s",
    items => '//li[@data-item-type="tweet"]',
    parse => { 'name' => '//@data-name',
               'time' => '//@data-time',
               'text' => '//*[@class="content"]/p' },
}

my $it = recent_tweets( $ARGV[0] );

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