현재 로케일로 회사의 이메일 주소를 리턴합니다.
Perl
$prodinfo->GetCompanyEmailAddress();
Perl
use CQPerlExt;
my $cqobject = CQSession::Build();
my $prodinfo = $cqobject->GetProductInfo();
print "CompanyEmailAddress = '".$prodinfo->GetCompanyEmailAddress()."'\n";
CQSessionen ::Unbuild($cqobject);