NET USE [devicename | *] [\\computername\sharename[\volume] [password | *]]
        [/USER:[domainname\]username]
        [/USER:[dotted domain name\]username]
        [/USER:[username@dotted domain name]
        [[/DELETE] | [/PERSISTENT:{YES | NO}]]

#!/usr/bin/perl

my $drive        = 'z:';
my $computername = 'zeus';
my $sharename    = 'c$';
my $password     = 'password';
my $domain       = 'some.domain';
my $user         = 'god';
my $persistent   = 'no';

my $res = `NET USE $drive \\\\$computername\\$sharename $password /USER:$domain\\$user  /PERSISTENT:$persistent`;

error() unless $res =~ m/The command completed successfully/;

sub error { print "Error!\n" and exit }