#!/usr/local/bin/perl -w
use strict;
use DBI;                # for database connectivity



my %db_conn = (
   a_manager => "DBI:Oracle:host=hostname1;sid=ABCDB01;port=1300','a_manager','a_manager',",
   b_manager => "DBI:Oracle:host=hostname1;sid=ABCDB01;port=1300','b_manager','b_manager',",
   c_manager => "DBI:Oracle:host=hostname1;sid=ABCDB01;port=1300','c_manager','_manager',",
   d_manager => "DBI:Oracle:host=hostname1;sid=CBADB01;port=1300','d_manager','d_manager',",
   );

for my $owner (keys %db_conn) {

print "Running $owner stats_table creation\n";

my $data_source = $db_conn{$owner};

print "$data_source\n";

my $query = qq (
        select * from cat
               );
my $dbh = DBI->connect($data_source) or die "Couldn't connect to database: " . DBI->errstr;

my $sth = $dbh->prepare($query)
                or die "Couldn't prepare statement: " . $dbh->errstr;

$sth->execute() or die "Couldn't execute statement: " . $sth->errstr;

}