Here's the perl version:

sub is_paying_customer {
  my $self = shift;
                                                                     
               
  my $dbh = RHN::DB->connect;
  return $dbh->call_function("rhn_bel.is_org_paid", $self->id);
}