use DbConn;
use Data::Dumper;

eval{
local $SIG{ALRM} = sub { print "Alarm Captured\n" ; exit ; } ;
my $Sleep_Obj= DbConn->New();
alarm 10 ;
$Sleep_Obj->connection('db_name','hostip','username','password');
alarm 0;
};

if ($@) {
         print "Timed out.\n";
} else {								print "Connected Successfully\n";
}