LWP::SimpleでUserAgentを指定する

LWP::SimpleはUserAgentを指定出来ないという文書が多いけどどうやら指定出来るらしい。

use LWP::Simple qw/:DEFAULT $ua/;
$ua->agent('My UserAgent');

これでLWP::UserAgentまでもない場面でUserAgentが必要なときにも安心。

参考：LWP::Simple で UserAgent を変更する