perl上传程序，在线等！

[libeixian]

收到程序立刻给分。

[leebx]

$in{'dh_filename'} =~ s/^.*(\\|\/)//;
local $file_dh = "/root/cert/$in{'dh_filename'}";
if( -r $file_dh ) {
print "文件已存在 : $in{'dh_filename'}<br>\n";
}
else {
open(MOD, "> $file_dh");
print MOD $in{'dh'};
close(MOD);
}