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

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