in reply to Can't remove directory-Permission denied

After you fix the problem with attempting to remove the directory '.' the next likely problem with this code is the file test -d.

sub unwanted {
if(-d $dir)
{
if ( ( -M $_ ) >2 &&(-M $_)<4)

[download]

$dir is a directory so this will return true even when $_ is a file. Try the following instead of if(-d $dir):

return unless -d;

This will test $_.

In Section Seekers of Perl Wisdom