#!/usr/bin/perl
use strict;
use warnings;
 
# somme les chiffres d'une liste de nombre et retourne la somme modulo 100
sub my_digits_sum {
    my $sum = 0;
    while (my $input = shift) {
        map {$sum += $_} split(//, $input);
    }
    return $sum % 100;
}
 
# recupération du numéro
print "Entrez le numero de magazine: ";
$_= <STDIN>;
 
# récupération de infos temporelles
my ($min, $hour, $mday, $mon) = (localtime)[1..4];
 
# nettoyage des blancs éventuels autour du numéro
s/^\s+|\s+$//og;
 
# vérification de la saisie d'un numéro: on ne doit avoir que des chiffres
die "Entree invalide!\n" unless (/^[0-9]+$/);
 
# calculs des sommes et impression en sortie
printf("%02d%02d%02d\n", my_digits_sum($_), my_digits_sum($min, $hour), my_digits_sum($mday, ++$mon));