#!/usr/bin/perl -w
use lib qw(/home/****/permodules);
use SqlSupport;
my $dbh = connectpgdb('****','****','****','Pg','localhost');
my $n = getsqlvalue($dbh,"select count(*) from blog");
print $n;