#!/usr/bin/perl -w
#


###################################################################
########################################################################################

# 
	use strict;
	use DBI;

	my @dbh = ();
	my $tmp = 1;
	my $dbh;

	for ($tmp=1; $tmp<=40; $tmp++) {
		$dbh[$tmp] = DBI->connect("dbi:Pg:dbname=timesheet", "timesheet");
		if ( !defined $dbh[$tmp] ) {
		die "$tmp - Cannot connect to db : $DBI::errstr\n";
		}
		else {
			print "$tmp - Connection granted\n";
		}
	}

	# Disconnect from the database
	# $dbh->disconnect;

#####
# EOF