请教：初学perl，自编了个删除目录的小脚本，始终调不通，大家帮忙走走看吧，v3x^_^

代码如下(用以实现删除一或多个指定目录下的所有文件)：
#!/usr/bin/perl -w

use File::Find;

sub remove
{
     print "Deleting $_ \n";
     #the current directory is empty
     if(-d)
     {
          #chmod u+x $_;
          rmdir or die "$! \n";
          next;
     }
     #delete file
     unlink $_ or die "$! \n";
}

print "please input the dest directory: \n";
chomp(my @destdir = <STDIN>);
foreach(@destdir)
{
    my $onedir = $_;
    opendir DH, $_ or die "Cannot open the $_: $!\n";
    chdir("$_") ||
         die "Cannot change the directory to $_: $!\n";
    foreach(grep !/^\.\.?/, readdir DH)
    {
         print "One file in $onedir is $_.\n";
         #chmod a+x $_;
         #finddepth will recursion the directory
         finddepth(\&remove,$_);
    }
    closedir DH;
}
貌似很简单的功能，却总是问题多多啊.....请大家帮忙运行下看看，高手指点下哦，谢啦^_^

怎么这么多代码，晕了……

rmtree

代码好长

del *.* 应该很快的

能不能具体的说说你要怎么去删除目录，如5楼所言，仅仅是删除使用“del *.*”就可以了。
你解释清楚了，大家才知道你的真正的问题所在。