默认的 UserAgent

[root@master test]# cat c1.pl 
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
 $ua->_agent;
print $ua->_agent ;
[root@master test]# perl c1.pl 
libwww-perl/5.833[root@master test]#