Twitter search api

Net::Twitterを使ってTwitter search APIを出力する
環境　windows xp sp3 lenovo s10e(netbook)
（ppmからconfig::pitがインストールできないのでログイン情報はそのまま）

#!/usr/bin/perl
use strict;
use warnings;
use Encode;
use Encode::Guess qw/ shiftjis euc-jp 7bit-jis utf8 /;
use Net::Twitter;

my $username ='username'; #username
my $pass = 'password'; #password


my $twit = Net::Twitter->new(
                              username => $username,
                              password => $pass,
                            ); 
my $query = 'twitter'; #検索ワード：今回は'twitter'

my $response = $twit->search($query);

my @lines;
while ( my ($key, $value) = each %{ $response } ){
	print $key."::".$value,"\n";
}

出力
page::1
query::twitter
completed_in::0.031903
refresh_url::?since_id=2813960057&q=twitter
next_page::?page=2&max_id=2813960057&q=twitter
results_per_page::15
max_id::2813960057
results::ARRAY(0x2bafb2c)
since_id::0