Select Code to Download

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

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