sub new {
    my $class = shift;
    my %args = @_;
    $args{ua} = LWP::UserAgent->new(
        agent      => __PACKAGE__.'/'.$VERSION,
        parse_head => 0,
    ) unless exists $args{ua};
    bless \%args, $class;
}

##</code><code>##

my $ua = new LWP::UserAgent;
$ua->agent('wolf-dressed-as-lamb/666');
my $dl = WWW::YouTube::Download->new('ua' => $ua);