현재 로케일로 회사의 전체 이름을 리턴합니다. (영어로 IBM Corporation)
Perl
$prodinfo->GetCompanyFullName();
Perl
use CQPerlExt;
my $cqobject = CQSession::Build();
my $prodinfo = $cqobject->GetProductInfo();
print "CompanyFullName = '".$prodinfo->GetCompanyFullName()."'\n";
CQSession::Unbuild($cqobject);