### See if they wanna move user files
  if(param('move') eq "yes") {
     $old = param('old');

     ### Start a foreach loop for all users
     foreach $line (@list) {

      opendir(DIR, "$old$line");
      my @userfiles = sort grep !/^\.\.?\z/, readdir DIR;
      close DIR;
      
      ### Need put each direcotry in a new one
     }
  }