sub get_rc_site_information {
    for my $instance ( keys %site_information ) {
        print $instance;
        for my $schema ( keys %{ $site_information->{ $instance } } ) {
            print $schema;
            my $channel_query = qq(select
##</code><code>##

Instance1Instance2
$VAR1 = {
          'Instance1' => {
                         'schema1' => {
                                      'tomcat' => 'aus02tc085'
                                      }
                       },
          'Instance2' => {
                         'schema1' => {
                                      'tomcat' => 'aus02tc032'
                                      },
                         'schema2' => {
                                      'tomcat' => 'aus02tc087'