在CGI程序中访问Hypertable时，权限被拒绝

#!/usr/bin/perl -w
use strict;
use warnings;
use CGI;
use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
use CGI::Session (\'-ip_match\');
use Hypertable::ThriftClient;
use Data::Dumper;

my $q = new CGI;
print $q->header(-cache_control => \"no-cache, no-store, must-revalidate\");

eval {
    my $client    = new Hypertable::ThriftClient(\"localhost\", 38080);
    my $namespace = $client->open_namespace(\"glinpe\");
    my $result    = $client->hql_exec($namespace, \"select * from words where row=\\\"maths\\\" keys_only\");
};

if ($@) {
    if ($@->isa(\'Thrift::TException\')) {
        print Dumper($@);
    } else {
        print Dumper($@);
    }
}
print \"<h1>works</h1>\";

$VAR1 = bless( { \'code\' => 0, \'message\' => \'TSocket: Could not connect to localhost:38080 (Permission denied)\' }, \'Thrift::TException\' );

-A RH-Firewall-1-INPUT -m state --state NEW -m tcp -p tcp --dport 38080 -j ACCEPT