#!/usr/bin/perl
use strict;
use CGI;
use Win32::OLE;

my $objNetwork;
my $query=new CGI;

my $strDrive = 'Z:'; 
my $strPath = '\\PC116597\print'; 

$objNetwork = Win32::OLE->CreateObject('WScript.Network');
$objNetwork->MapNetworkDrive($strDrive, $strPath) || print "failed mapping!\n";
print Win32::OLE->LastError();