Hi.

Firstly, I've never used Net::Telnet. But, after looking at the docs, this might be an option:

When $obj->waitfor is called in list context, the "characters before the match and the matched characters are returned".

So, maybe calling it like:

my ( $prematch, $match );
( $prematch, $match ) = $t->waitfor( '/login:/' );
print $prematch, $match;
$t->print( 'admin' );
( $prematch, $match ) = $t->waitfor( '/Password:/' );
print $prematch, $match;
$t->print( 'admin1' );
[download]

Will show you what's been recieved.

Alternatively, you might just spatter in some debug-like statements.

print "Sending username...\n";
$t->waitfor( '/login:/' );
$t->print('admin');
print "Sending password...\n";
$t->waitfor( '/Password:/' );
$t->print( 'admin1' );
[download]

Lastly, consider using the login method and checking its return value to see if it succeeded or not, or even using input_log and dump_log to debug.

Oh, and i noticed that your password match is using an uppercase "P", i think, generally, it should be lowercase. *shrug*

Good luck.