Write a Perl program that prompts a use to input a line of text.

If the line of text mentions both John and Smith, the program outputs FOUND. Otherwise, it outputs NOT FOUND.

Please note: If you have already answered this question, don't answer it again. I'm seeking a second opinion.