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' );

##</code><code>##

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