Script de Perl que solo es sintácticamente correcto los viernes

El siguiente script de Perl almacenado en github solo pasa el chequeo de sintaxis los viernes.