simple-search.pl

#!/usr/bin/env perl
use warnings;
use strict;
use Net::Twitter;

my $nt = Net::Twitter->new(traits => ['API::Search'], decode_html_entities => 1);

my $r = $nt->search('perl net::twitter');

for my $tweet ( @{$r->{results}} ) {
    printf "%s: %s\n", $tweet->{from_user}, $tweet->{text};
}