my $unc = '//10.1.0.22/path/to/use';

open(my $fh, $unc) or die "[Error] COULD NOT OPEN FILE: [$unc] - [$!]";

##</code><code>##

net use x: \\computer name\share name

##</code><code>##

net use x: \\computer name\share name password /user:username

##</code><code>##

net use x: \\computer name\share name password /user:username /persistent:yes

##</code><code>##

my $drive = 'X';
my $unc   = '//10.1.0.22/path/to/use'
my $user  = 'user';
my $pass  = 'xyz';

Map $drive => $unc, { username => $user, passwd => $pass };

##</code><code>##

my $drive = 'X';
my $unc   = '//10.1.0.22/path/to/use'
my $user  = 'user';
my $pass  = 'xyz';

Connect $drive => $unc, { username => $user, passwd => $pass };