You might consider:

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

that way you don't have to count backslashes and don't need a backslash in front of the '$'.

        - tye (but my friends call me "Tye")