Select Code to Download

#!/usr/bin/perl
use Expect;
...
# create an Expect object by spawning another process
my $exp = Expect->spawn($command, @params);
$exp->send("yes");