#!/perl/bin/perl -w

use strict;
use warnings;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
use File::Find;

print header();


my $dir_rv = "c:/progra~1/apache~1/apache2/cgi-bin/"."del";

      opendir DIR, $dir_rv or return;
      my @contents = map "$dir_rv/$_",sort grep !/^\.\.?$/,readdir DIR;
      closedir DIR;

      foreach (@contents) {	      
        next unless !-l && -d;  
        print "<br><font color=red>Found:^^$_^^</font><br>";
        rmdir ( "$_" ) or die ("Could not remove $_");
        print "<br><font color=red>Found:^^$_^^</font><br>";
      }