#!/usr/bin/perl
open (USERS, "ls /home/e-smith/files/users/|") or die "no file";
    while ($user = <USERS>) 
    {

    #$user = "flopez";
    chop $user;
	system("ls /home/e-smith/files/users/$user > /root/listado");
	open (LISTADO, "</root/listado") or die "Cant open the file /root/listado"; 
	    while (<LISTADO>) 
	        {
	        chop $_;
	        if ($_ ne "home" && $_ ne "Maildir" && $_ ne "Mail") 
	            {
	            system("mv '/home/e-smith/files/users/$user/$_' '/home/e-smith/files/users/$user/Mail/$_'");
		    }
	        }
        close (LISTADO);
    }	
close (USERS);