Возможно ли скрипт управления?

        my $telnet = new Net::Telnet ("remotehost") # see Net::Telnet
           or die "Cannot telnet to remotehost: $!\n";;
         my $exp = Expect->exp_init($telnet);
         # deprecated use of spawned telnet command
         # my $exp = Expect->spawn("telnet localhost")
         #   or die "Cannot spawn telnet: $!\n";;
         my $spawn_ok;
         $exp->expect($timeout,
                      [
                       qr'login: $',
                       sub {
                         $spawn_ok = 1;
                         my $fh = shift;
                         $fh->send("$username\n");
                         exp_continue;
                       }
                      ],
                      [
                       'Password: $',
                       sub {
                         my $fh = shift;
                         print $fh "$password\n";
                         exp_continue;
                       }
                      ],
                      [
                       eof =>
                       sub {
                         if ($spawn_ok) {
                           die "ERROR: premature EOF in login.\n";
                         } else {
                           die "ERROR: could not spawn telnet.\n";
                         }
                       }
                      ],
                      [
                       timeout =>
                       sub {
                         die "No login.\n";
                       }
                      ],
                      '-re', qr'[#>:] $', #' wait for shell prompt, then exit expect
                     );

echo password

3 автоматически водит пароль root