#! /usr/bin/perl -w
use strict;
use POSIX;
use DBI;
use CGI qw(:standard);
my ($dbh, $sth, $count);