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