#!/bin/perl
use strict 'vars';
use Utils;

while(1){
        my $utlp = new Utils();
        $utlp->connect();
        $utlp->Log("database connected.\n");
        $utlp->disconnect();
        $utlp->Log("database disconnected.\n");
        sleep(5);
}