Ask the Magic 8 Ball a question in Perl