Select Code to Download

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

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

net use x: \\computer name\share name

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

net use x: \\computer name\share name password /user:username /persist
+ent:yes

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

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

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

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