foreach my $cmd_telnet (@telnet_drop) {
     $telnet->print("$cmd_telnet");
	 (my $prematch, my $match) = $telnet->waitfor('/0 Successful/') or print "notok\n";
     print "$match\n";
     if ( $match eq "0 Successful" ) {
	  print OUT_succ "$cmd_telnet \t Successful\n";
     }
     else {
	  print OUT_fail "$cmd_telnet \t NOT OK\n"
     }
}