現在のロケールの会社の Web アドレスを戻します。
Perl
$prodinfo->GetCompanyWebAddress();
Perl
use CQPerlExt;
my $cqobject = CQSession::Build();
my $prodinfo = $cqobject->GetProductInfo();
print "CompanyWebAddress = '".$prodinfo->GetCompanyWebAddress()."'¥n";
CQSession::Unbuild($cqobject);