sub connect {
        $host     = "d.d.ag.com";
        $database = "r_1m" ;
        $user     = "d_ad" ;
        $pw       = "C3";
        my $dsn = "DBI:mysql:host=$host";
        my $dbh = DBI->connect($dsn, $user, $pw) ||
        die "ERROR: can't connect to database servern";
        return $dbh;
        $host     = "d.d.ag.com";
        $database = "r_curr" ;
        $user     = "d_ad" ;
        $pw       = "C3";
        my $dsn = "DBI:mysql:host=$host";
        my $dbh = DBI->connect($dsn, $user, $pw) ||
        die "ERROR: can't connect to database servern";
        return $dbh;

        $host     = "d.d.ag.com";
        $database = "s_1m" ;
        $user     = "d_ad" ;
        $pw       = "C3";
        my $dsn = "DBI:mysql:host=$host";
        my $dbh = DBI->connect($dsn, $user, $pw) ||
        die "ERROR: can't connect to database servern";
        return $dbh;
        $host     = "d.d.ag.com";
        $database = "s_curr" ;
        $user     = "d_ad" ;
        $pw       = "C3";
        my $dsn = "DBI:mysql:host=$host";
        my $dbh = DBI->connect($dsn, $user, $pw) ||
        die "ERROR: can't connect to database servern";
        return $dbh;
         }