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

##</code><code>##

Win32::OLE(0.1709) error 0x80040154: "Class not registered"