[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]#