just test test test test 。。。。。。。。。。。
#!/usr/bin/env perl
$bad=qw(默认代码有SQL,咋连一个脚本都没有);
print $bad;