my $cmd = Expect->spawn("program $params")
    or die "Couldn't run program";

unless($cmd->expect(2, "Password")) {
     print $cmd "passwd\n";
}
#Here I would like to gather the output for parsing.

##</code><code>##

$cmd->expect($timeot);
$output = $cmd->before();