use Win32::OLE;
$wd = Win32::OLE->GetObject("mydll")
     || die "Unable to load Win32::OLE" . Win32::OLE->LastError;

##</code><code>##

use Win32::OLE;
$wd = Win32::OLE->GetObject("mydll.dll")
     || die "Unable to load Win32::OLE" . Win32::OLE->LastError;

##</code><code>##

use Win32::OLE;
$wd = Win32::OLE->GetObject("c:\\windows\\system32\\mydll.dll")
     || die "Unable to load Win32::OLE" . Win32::OLE->LastError;    use Win32::OLE;