#! /usr/bin/perl

# count_members - display count of Historical League membership

use DBI;
use strict;

my ($dsn) = "DBI:mysql:samp_db:localhost"; # data source name
my ($user_name) = "paul";  # user name
my ($password) = "secret"; # password
my ($dbh, $sth);           # database and statement handles
my ($count);               # count of members

# connect to database
$dbh = DBI->connect ($dsn, $user_name, $password, { RaiseError => 1 });

# issue query
$sth = $dbh->prepare ("SELECT COUNT(*) FROM member");
$sth->execute ();

# read results of query, then clean up
$count = $sth->fetchrow_array ();
$sth->finish ();
$count = "can't tell" if !defined ($count);
print "$count\n";

$dbh->disconnect ();
exit (0);