my $continue = 1;
my %t; # Hash to hold telnet connection objects
# start of data collection loop that starts every X minutes
while ($continue) {

    #New ForEach Loop to iterate through Router Hash Table 
    foreach $router (sort (keys (%MSC_Routers))) {
        
        my $ip = $MSC_Routers{$router};
        print ("$router has IP: of $ip\n\n");
        
        #Print out which one I am connecting to
        print ("\t\t I am telnetting to: $ip \n\n");
        sleep 3;
        
        $mode = "return";
        if (!exists $t{$router}) {
            my $input_log = $router."_input_log";
            my $dump_log = $router."_dump_log";
            #Open Telnet Session
            $t{$router} = new Net::Telnet (Timeout => 10,
                                  input_log => "$input_log",
                                  dump_log => "$dump_log",
                                  prompt => '/#$/',
                                  Errmode => $mode
                                  );
        }
        my $test_cmd = "ls";
        if (!$t{$router}->put($test_cmd)) { # test if connection is open
            $t{$router}->close;
            $t{$router}->open("$ip");
        }
        
        # Issue desired commands here
    } # end foreach $router loop

} # end of while loop