my $mib = "$wrmem";
    for my $host(@routers) {
      my $s = Net::SNMP->session( -hostname  => $host,
                                  -community => $community );
      $s->set_request($mib, INTEGER, "1");
      my $error = $s->error;
      $s->close;
      if ($error) {
        print "\n$error\n\n";
      } else {
        print "\nSuccessfully wrote config to memory on $host.\n\n"