LWP::SimpleのUserAgent変更する方法

tips perl 
use LWP::Simple;

$LWP::Simple::ua->agent("unko"); ## LWP::Simple::get()のUAが"unko"になる
get("http://satoru.net/unko/");

$LWP::Simple::uaがnew UserAgent()としてIMPORT OKになってるらしいのでイジイジ可能っていう設計みたい
UA偽装しないと取得できないよーな時に便利