Спасибо

но честно говоря, такое не але
#!/usr/bin/perl

use Expect;

my $exp = Expect->spawn("telnet foo.bar.com");
$exp->expect($timeout,
        [ 'ogin: $' => sub {
                     $exp->send("luser\n");
                     exp_continue; }
        ],

        [ 'assword:$' => sub {
                      $exp->send("TopSecret\n");
                      exp_continue; }
        ],
        '-re', qr'[#>:] $'

А если брать expect скрипт, то все ок