sub query_user {
    print @_ if @_;
    chomp (my $answer = <STDIN> );
    return $answer;
}