if(scalar(@directories)>=4){
            @part= @directories[0..3];
        }    
        
        #Take as many as possible when <4 elements in the array
        elsif(scalar(@directories)<4){
            @part = @directories [0..scalar(@directories)];

        }

##</code><code>##

       @part= @directories[0..3];

##</code><code>##

if ($pid == -1) {

##</code><code>##

if (not $pid) {