my $share= '//'.$server.'/c$';
    $share =~ tr#/#\\#;
    system( "net use j: $share ..." );