use strict;
use warnings;
use DBI;
use CGI;
use Try::Tiny;

my $db = "magnian1_ncls2";
my $username = "xxx";
my $password = "yyy";

my $q = CGI->new;

print $q->header, $q->start_html('Test: '); try {

my $dsn = "DBI:mysql:database=$db;host=localhost;";

my $dbh = DBI->connect($dsn, $username, $password, {RaiseError => 1} );

my $sth = $dbh->prepare(q{ SELECT count(*) FROM nucleus_plugin_profile WHERE field = ? && value = ?;
  });


             $sth->execute("membership",2);
 my $count = $sth->fetchrow_array();

    $sth = $dbh->prepare(q{
    SELECT memberid,field,value FROM nucleus_plugin_profile WHERE value = ? && field = ?;
  });

  $sth->execute("membership",2);

my @ary;

print "There are ", $count, " Charge Points\n";

while ( @ary = $sth->fetchrow_array() ) {
           print, @ary;


} catch { print "Error: $_" }; print $q->end_html