sub check_server_exist {
    my($svr) = "\Uempdb";
    my($sql_in) = "d:\\tmp\\sql.txt";

    my @check_name = ();

    open(SQL_INI, "<$sql_in")
        or die "can't open the file: @sql_in $! \n";

        while (<SQL_INI>) {           
            chomp;
            s/#.*//;
            s/^\s+//;
            s/\s+$//;
          
            #push(@check_name, $_);
        }

        print "This is the server name: $svr\n";

        if ($_ =~ m/${svr}/ ||
            $_ =~ m/${svr}_BACKUP/ ||
            $_ =~ m/${svr}_REP/ ||
            $_ =~ m/${svr}_RSM/ ||
            $_ =~ m/${svr}_XP/)
        {
            print "Server name exists\n\n";
            &leave;
        }
}
};