#using File::Find

sub wanted{ #checks for old files
    if (-r && -f){ 
        #get size of file (MB)
        $size=int((lstat($_))[7]/1000000);

        # check the age of file    
        if ($opt{a} < -A && $size > $opt{s}){
            
            #get user id
            $uid = (lstat($_))[4];