#! /usr/local/bin/perl -w use strict; use CGI qw(:standard escapeHTML); $::DSN = "MWEBMYSQL"; use DBI; $::dbh = DBI->connect ("dbi:ODBC:$::DSN", "ODBC") || die ("Cannot connect to Data Source '$::DSN'"); my ($count) = $::dbh->selectrow_array ("select count(*) from logon"); print header ('text/html', '200 OK'); print "Found $count records in LOGON";