转:http://www.cgisecurity.com/lib/sips.html
Security Issues in Perl Scripts
By Jordan Dimov ([email protected])
Introduction
A programming language, by design, does not normally constitute a s ...……
use CGI;
use CGI qw/:standard/;
use Digest::MD5 qw(md5_hex);
my $query = CGI-amp;amp;gt;new(\amp;amp;amp;hook,$PREF_logfh);
my $filename = $query-amp;amp;gt;param('uploadname');
($filename,$file_ext ...……