Use backtics or system to exec a NET USE.

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 /USE
+R:$domain\\$user  /PERSISTENT:$persistent`;

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

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

You will get a conflict of credential error if you are logged on as administrator and try to use the same username/password (that's windows for you). In this case just don't pass a password and username and it will work.

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print