Select Code to Download

$exp->expect($timeout,
              [ qr/username: /i, sub { my $self = shift;
...
                                       $self->send("$password\r");
                                       exp_continue; }],
              $shell_prompt);

print "username: ";
my $username = <STDIN>;
...
my $password = <STDIN>;
chomp $username;
chomp $password;