#!perl

use Win32::FileOp qw/ Map /;

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

open FILE, 'x:/path/file.ext' or die "...";