use LWP::UserAgent;
         $ua = LWP::UserAgent->new;
         $ua->agent("MyApp/0.1 ");

# OR:

  use WWW::Mechanize;
  my $mech = WWW::Mechanize->new( agent=>"wonderbot 1.01" );