#!perl
use strict;

my %site_map = (
  site1 => { host => 'dam.sd.aog.com', 
             db   => 'a_site1_current', 
          current => { user => 'ad', pw => '123' } },
  site2 => { host => 'dam.sd.aog.com', 
             db   => 'a_site2_current',
          current => { user => 'ad', pw => '123' } },
  site3 => { host => 'dam.sd.aog.com', 
             db   => 'a_site3_current',
          current => { user => 'ad', pw => '123' } },
);