$tdc = Win32::OLE->new('TDapiole80.TDconnection');
print Win32::OLE->LastError();