Net::Telnet + command prompt

Select or download this

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

Select or download this

use Warnings;
use Net::Telnet ();
...
    print "@lines \n";
    $t->close;
}

Select or download this

Welcome to Microsoft Telnet Service 

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

Select Code to Download