#!/usr/bin/env perl
use strict; use warnings;

dir_del($ARGV[0]);

sub dir_del {
my @dirlist=("$_[0]");
my $r=0; my $s=scalar(@dirlist);
while ( $r < $s ) {
	opendir my($dh),$dirlist[$r];
	my @filelist=grep {!/^\.\.?$/} readdir $dh;
	for my $i ( 0..scalar(@filelist)-1 ) {
		if ( -f "$dirlist[$r]/$filelist[$i]" ) {
			unlink("$dirlist[$r]/$filelist[$i]");
		} else {
			push @dirlist,"$dirlist[$r]/$filelist[$i]";
			$s=scalar(@dirlist);
		}
	}
	closedir $dh;$r+=1;
}
my $a=scalar(@dirlist)-1;
for my $i ( 0..scalar(@dirlist)-1 ) {
	rmdir($dirlist[$a]);$a-=1;
}
}