use Win32::OLE;
use strict;
use warnings;

my $objnet=Win32::OLE->CreateObject("Wscript.Network");
$objnet->MapNetworkDrive("G:","\\\\Serverxy\\Ordnerxy\\");