#!/usr/bin/perl
use DBD::mysql;
use DBI;
use Utils::DBClass;
$object = new DBClass( "perltest", "localhost", 3306,"root", "sierra");
$object -> select_db ("select * from samples");