#!/usr/bin/perl
use warnings;
use strict;


print "Choose The Datacenter\n";
print "1. \Primary\n";
print "2. \Secondary\n";
print "Enter 1 or 2:";

 

$ENV{"SYMCLI_CONNECT"} = "";

our $datacenter=<STDIN>;



if ($datacenter == 1) {
    print "\t\t\t***Setting Environment for Primay***\n";
    
    $ENV{"SYMCLI_CONNECT"} = "primary_server";
   
    system  ("symcfg list");
    
 
} 


 
elsif ($datacenter == 2) {
        print "\t\t\t\t***Setting Environment for Secondary***\n";
       
	    
      $ENV{"SYMCLI_CONNECT"} = "secodnary_server";

        system  ("symcfg list");
} 



else {
        print "Please enter only 1 or 2 \n";
}