while(glob("$MatchPattern")) {
      my $ObjectName  = $_;
      my $age         = sprintf("%.6f", -M $ObjectName) if ($ObjectName);
      my $size        = -s $ObjectName if ($ObjectName);
      my $Display     = ($DtFmt) ? $DtFmt : "%Y-%m-%d";
      my $ObjModTime  =  strftime("$Display", localtime((stat($ObjectName)->mtime)));

      if ($age > 0 && $age > $AgeLimit && $size <= $SizeLimit) {
                if (($AutoAction eq 'AutoArchive') && ((-f $ObjectName) || (-d $ObjectName))) {
                      print "[$ObjModTime] Age & Size = $age > $AgeLimit And $size < $SizeLimit :: Marked to Zip\n";
                      qx(gzip $ObjectName)                     if (-f $ObjectName && $Type eq 'Sys_File');
                      qx(zip -rmT $ObjectName $ObjectName)     if (-d $ObjectName && $Type eq 'Sys_Dir' );
                      $ObjCounter++; 

                } elsif (($AutoAction eq 'AutoDelete') && (-f $ObjectName)) {
                         print "Age & Size = $age > $AgeLimit And $size < $SizeLimit :: Marked to Remove \n";
                         unlink ($ObjectName);
                         $ObjCounter++; 
               } elsif (($AutoAction eq 'AutoMove') && $MoveToPath && ($MoveToPath ne 'Nil') && ((-f $ObjectName) || (-d $ObjectName))) {
                         
                         if (-e $MoveToPath) {
                             print "[$ObjModTime] Age & Size = $age > $AgeLimit And $size < $SizeLimit :: Marked to Move\n";
                             qx(mv $ObjectName $MoveToPath/.) if (-f $ObjectName && $SignOff eq 'Yes');
                             $ObjCounter++; 

                        } 

              } else {

                      print "[$ObjModTime] Age & Size = $age > $AgeLimit And $size < $SizeLimit ::  Marked No Action\n";

                      next;

              }

       } else {
              next;
       }


} #End of while