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