Select Code to Download

my $cmd = Expect->spawn("program $params")
    or die "Couldn't run program";
...
     print $cmd "passwd\n";
}
#Here I would like to gather the output for parsing.

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