$tdc = Win32::OLE->new('TDapiole80.TDconnection', sub {$_[0]->Quit;})
			or die "Failed to load OTAClient DLL.\n";