#!/usr/bin/perl

use DBI;
use DBD::mysql;
use Utils::ADB;


$object = new ADB( "mysql","adb", "192.168.106.218", 3306, "root", "root");

my @records = $object -> select_db ("select * from users");

foreach $recRef (@records) {
  print join ("   ", @$recRef),"\n";
}

print "\n \n";