{
    no warnings 'redefine';
    local *{main::get_input} = sub { "yes" };
    get_answers();
}

sub get_answers {
    print "Is this right?";
    return get_input();
}

sub get_input { <> }