my $exp = new Expect;
$exp->raw_pty(1);
$exp->spawn( $command, @params ) or die $!;
$exp->expect( $timeout, 
    [ qr/replace\s+\S+?\s+\[y\]es,\s+\[n\]o,\s+\[A\]ll,\s+\[N\]one,\s+
+\[r\]ename:/i => sub{ my $exp = shift;
                            $exp->send( "A\n" );
                            exp_continue; } ],
            );
$exp->soft_close();
[download]