はてなハイクAPI を Net::Twitter で使う方法

Net::Twitterでできるねってコメントは見かけますが、どう使うのかというのが見あたりません。
だれもやってないのかな？
Net::Twitterの方は認証設定をいれないと駄目でした。

use MIME::Base64;
use Net::Twitter;

my $hatena_id = 'はてなID';
my $haiku_pass = 'はてなハイクAPI用のパスワード';
my $keyword = 'キーワード';
my $text = '内容';
my $haiku = Net::Twitter->new(
	username => $hatena_id,
	password => $haiku_pass,
	apirealm => 'Hatena Haiku API',
	apihost  => 'h.hatena.ne.jp:80',
	apiurl   => 'http://h.hatena.ne.jp/api',
	source   => 'from API を変えたければここに文字列を入れる',
);
$haiku->{ua}->default_header( "Authorization:" => encode_base64("$hatena_id:$haiku_pass"));  #***
my $msg = $keyword . "=" . $last_post;
my $result = $haiku->update($msg);
print $haiku->{response_code} . ":" . $haiku->{response_message} . "\n";

#***の行を追加しないと、{response_code}の値が認証失敗となり投稿に失敗します。

以下ヘルプの例がおかしい点を愚痴っていましたが、別エントリとします。