get_status("@SERVERS[$rev_srv_num{$SERVER}]->[2]","$SERVER");

##</code><code>##

my $print_subsystem=shift;
    # chomp ($print_subsystem); # not needed
    my $server_name=shift;