sub add_client() {

print "******ADDING ROW TO CLIENT TABLE******\n";
print "I AM HERE\n";
my ($dbh, $clt, $prdpasswd) = @_;
my $count = 1;
my $cltid;

my $sql = "select distinct CLT_ID from ENRMASTER..CLT order by CLT_ID";

my $sth = $$dbh->prepare($sql)
        or $app->error($FATAL, "can't prepare SQL statement [ $sql ] ::$DBI::errstr");
$sth->execute();
}