my $r = $expect->expect(2,
                        [ qr/configtest:/ => sub { shift->send("$pass2\n"); exp_continue;} ],
                        [ qr/Sorry/       => sub { print "Login failed\n" } ],
                        [ qr/.*#\s+/      => sub { print shift->match }]
               );

if (!defined $r) {
    print "Timeout!\n";
}
elsif ($r == 3) {
    $expect->interact();
}
else {
    print "Login failed!\n";
}

##</code><code>##

Variable "$expect" is not imported at ./test.pl line 28.
    (Did you mean &expect instead?)