$mech = WWW::Mechanize->new( agent => 'wonderbot 1.01' );