Connecting to baby ...
timed-out waiting for command prompt at stopserver.pl line 28

##</code><code>##

use Warnings;
use Net::Telnet ();
use Cwd;
$file="inputLog.txt";
$ofile="outputlog.txt";

# build an array of the servers we want to talk to
@hosts = ("scary", "baby", "posh");

foreach $host (sort @hosts)
{
	$t = new Net::Telnet (Timeout => 10,
					Input_log => $file,
					Output_log => $ofile);

	print "\nConnecting to $host ...\n";
	$t->open("$host");
	$t->login(abcde,abc123);
	my @lines = $t->cmd('ls');
	print "$host: Directory Contents:\n";
	print "@lines \n";
	$t->close;
}

##</code><code>##

Welcome to Microsoft Telnet Service 


login: abcde

password: 

*===============================================================
Welcome to Microsoft Telnet Server.
*===============================================================
C:\Documents and Settings\Administrator>