use Net::Twitter;
use Scalar::Util 'blessed';
use Net::Twitter::Search;


# When no authentication is required:
my $nt = Net::Twitter->new(legacy => 0);

$consumer_key = "x";
$consumer_secret = "y";
$token = "z";
$token_secret = "w";

# As of 13-Aug-2010, Twitter requires OAuth for authenticated requests
my $nt = Net::Twitter->new(
	traits   => [qw/OAuth API::REST/],
	consumer_key        => $consumer_key,
	consumer_secret     => $consumer_secret,
	access_token        => $token,
	access_token_secret => $token_secret,
);

my $twitter = Net::Twitter::Search->new();

my $results = $twitter->search('smoking');


foreach my $tweet (@{$results}) {
	my $speaker =  $tweet->{from_user};
    my $text = $tweet->{text};
    my $time = $tweet->{created_at};
    print "$time <$speaker> $text\n";
}
}