Как установить User-Agent с LWP?

У меня есть книга Perl & LWP, но как мне установить строку пользовательского агента?

Вот что у меня есть:

use LWP::UserAgent;
use LWP::Simple; # Used to download files

my $u = URI->new($url);
my $response_u = LWP::UserAgent->new->get($u);
die "Error: ", $response_u->status_line unless $response_u->is_success;

Любые предложения, если я хочу использовать LWP :: UserAgent как я здесь?