my $ua = LWP::UserAgent->new( agent =>
'User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.6) Gecko/20050223 Firefox/1.0.1' );