else
                {
                    while(my($key,$val) = each(%info))
                    {
                        if ($key eq "dir-mode") { $d_mode = $val}
                        elsif ($key eq "file-mode") { $f_mode = $val}
                        elsif ($key eq "link-mode") { $l_mode = $val}
                        elsif ($key eq "dir-owner") { $d_own = $val}
                        elsif ($key eq "file-owner") { $f_own = $val}
                        elsif ($key eq "link-owner") { $l_own = $val}
                        elsif ($key eq "dir-group") { $d_grp = $val}
                        elsif ($key eq "file-group") { $f_grp = $val}
                        elsif ($key eq "link-group") { $l_grp = $val}
                    }
                    return 0;
                 }