You can disregard my last note. I was able to implement the disconnent. However I still get the system error 55? Any idea where else this could be being thrown from, or how I could fix it? The new code is located below. Thank you for all of your help this far. It is very much appreciated.

 
foreach $server ( @servers )
{
    if( $found == 0 )
    {
        if( -e "\\\\$server\\C\$\\" )
        {
            print "\n\nServer is already linked\n\n";
        
            find( \&finddata, "\\\\$server\\c\$\\VoiceGenie\\mp\\logs\
+\" )or 
                warn "Could not enter the specified path \\\\$server\\
+c\$\\VoiceGenie\\mp\\logs\\.\n"; #Function that allows the use of Fil
+e::Find.
        }
        
        else
        {
            print "\n\nServer not linked connecting now\n\n";
        
            qx|net use \\\\$server\\C\$\\VoiceGenie\\mp\\log  $ServerP
+assword /user:$username|;
        
            find( \&finddata, "\\\\$server\\c\$\\VoiceGenie\\mp\\logs\
+\" ) or 
                warn "Could not enter the specified path \\\\$server\\
+c\$\\VoiceGenie\\mp\\logs\\.\n"; #Function that allows the use of Fil
+e::Find.
                
            qx|net use \\\\$server\\C\$\\VoiceGenie\\mp\\log /D|;

        }
    }
}
[download]