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