$result = system "net use b: \\\\printserver\\d$ $password /USER:$user"; 

#copy the files

$result= system "net use b: /DELETE";