转:http://www.cgisecurity.com/lib/sips.html Security Issues in Perl Scripts By Jordan Dimov (jdimov@cigital.com) Introduction A programming language, by design, does not normally constitute a security risk; it is with the programmer that the risk is i…
#!/usr/bin/perl -w use strict; use LWP::UserAgent; my $useragent = new LWP::UserAgent; my $url = 'http://www.baidu.com'; my $request = HTTP::Request->new(GET => $url); my $repose = $useragent->request($request); print $repose->as_string; #网站源码…