以下代码为何无法自动删除cgitemp文件
##win2k +apache +activeperl以下为代码
#!d:\perl\bin\perl.exe
use CGI;
my $cgi=new CGI;
my $file=$cgi->param("file");
print $cgi->header;
if($file)
{
open(OUTFILE,'>d:\1.mp3') or print "asdfjk";
binmode(OUTFILE);
while (my $bytesread=read($file,$buffer,1024))
{
print OUTFILE $buffer;
}
close OUTFILE;
print "ok";
}
else
{
print <<eof;
<form method="POST" action="/cgi-bin/c.pl" enctype="multipart/form-data">
<input type="file" name="file" size="25">
<input type="submit" value="添加新曲目" name="B1"></td>
</form>
eof
}
exit;