$comobj = Win32::OLE->new("STATANPKG\.FDG3");

##</code><code>##

$comobj->Init('the quick brown fox');

##</code><code>##

void FDG3::Init(const wchar_t *keyphrase) //throw (Exception)