Perl Quiz-of-the-Week #3

Mark Jason Dominus <[email protected]> Wed, 30 Oct 2002 16:05:24 -0500
Newsgroups gmane.comp.lang.perl.qotw.quiz-of-the-week
Organization Plover Systems
Message-ID <[email protected]>
IMPORTANT: Please do not post solutions, hints, or other spoilers
        until at least 60 hours after the date of this message.
        Thanks.

IMPORTANTE: Por favor, no enviéis soluciones, pistas, o cualquier otra
        cosa que pueda echar a perder el concurso hasta que hayan
        pasado por lo menos 60 horas desde la recepción de este
        mensaje. Gracias.

IMPORTANT: S'il vous plaît, ne postez pas de solutions, indices ou
        autre révélations jusqu'à au moins 60 heures après la date de
        ce message. Merci

----------------------------------------------------------------

This question was suggested by Steve Marvell.  Thank you, Steve.

Write a program, 'spoilers-ok'.  It will read the quiz-of-the-week
email message from the standard input, extract the date that the
message was sent, and print a message that says

        It is okay to send spoilers for this quiz

or

        It is too soon to send spoilers for this quiz.
        You may send spoilers in another 4 hours 37 minutes.

It becomes okay to send spoilers after 60 hours have elapsed from the
time the quiz was sent.

You can be sure that the 'Date' field of the QOTW email message will
always be in the same format, which is dictated by internet mail format
standards.  For those unfamiliar with this format:

        Date: Wed, 23 Oct 2002 16:10:15 -0400

The "16:10:15" is the time of day.  "-0400" means that the time of day
is in a time zone that is 4 hours behind Greenwich.  

(Sorry for sending two date arithmetic problems in a row, but this one
was so apt I just had to use it.  I promise that next week's quiz will
not involve date calculations in any way.)