Telnet

use Net::Telnet;
our $TelnetLoginPrompt ='/C:\\\\Documents and Settings\\\\Administrator>$/i';      #'/C:\\\\Users\\\\Administrator>$/i';     # '/C:\\\\Documents and Settings\\\\Administrator>$/i';
print $TelnetLoginPrompt;
$AttackSourceIP = "127.0.0.1";
$telnet = Net::Telnet->new(timeout=>10, errmode=>'die', prompt => $TelnetLoginPrompt); # '/C:\\\\Documents and Settings\\\\Administrator>$/i'
$telnet->open($AttackSourceIP);   # $AttackSourceIP is global variable
$telnet->login('administrator','qa08@');