use strict;
use warnings;
use Win32::FileOp qw/ Map /;

Map 'X:' => ' \\machine\share',
  { user => 'foo', passwd => 'bar' };

open (my $file, "<", 'x:/path/file.ext') or die "...";