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