perl 使用expect 模块， 问答都放在hash中，类似的修改问答和 命令就行了； perl use expect module ，all Question /Answer in Hash

gistfile1.pl

#!/usr/bin/env perl
use 5.010;
use strict;
use Expect;

my $cmd = "perl simulate.pl";
my $timeout = 30; 
my @question_list = qw/name age home/;
my $qa = { 
"name" => "shalk\n",
"age"  => "17\n",
"home" => "China\n",
};

my $exp = Expect->spawn($cmd) or die "can not spawn $cmd";
for my $ask (@question_list){
my $answer = $qa->{$ask};                                       
$exp->expect($timeout,
[ qr/$ask/ => sub {  my $exp = shift, $exp->send($answer) }, ],
);
}
$exp->soft_close();