use Win32::FileOp qw(Map);
Map 'H:' => '\\\\server\\share', {persistent => 1}
  or die "Failed to map the drive: $^E\n"