#!/usr/bin/perl

# PERL MODULES
use DBI;
use DBD::mysql;

# HTTP HEADER
print "Content-type: text/html \n\n";

# CONFIG VARIABLES
$platform = "mysql";
$database = "TEST";
$host = "127.0.0.1";
$port = "3306";
$tablename = "SERVICE";
$user = "guest";
$pw = "guest";

#DATA SOURCE NAME
$dsn = "dbi:mysql:$database:$host:3306";


# PERL DBI CONNECT
$DBIconnect = DBI->connect($dsn, $user, $pw);

#my $sth = $DBIconnect->prepare(qq{select serviceprovider from PROVSERVICE limit 1});
my $sth = $DBIconnect->prepare(qq{SELECT COUNT(*) col FROM dual WHERE 1=1});

$sth->execute();

my $ss = $sth->fetchrow();

print $ss;
print "\n";

$sth->finish();

$DBIconnect->disconnect();