| Subject: | User Agent |
$ua->agent shouldn't be hard-coded. I need to supply my own identifier, so URI::Fetch should either have a UserAgentName parameter or do something like this:
unless ($ua) {
$ua = LWP::UserAgent->new;
$ua->agent(join '/', $class, $class->VERSION);
}