#!/usr/local/bin/perl
use strict;
use warnings;
use Time::Piece;
my $date = localtime->strftime('%m-%d');
CiMhL3Vzci9sb2NhbC9iaW4vcGVybAp1c2Ugc3RyaWN0Owp1c2Ugd2FybmluZ3M7CnVzZSBUaW1lOjpQaWVjZTsKCm15ICRkYXRlID0gbG9jYWx0aW1lLT5zdHJmdGltZSgnJW0tJWQnKTsKcHJpbnQgJGRhdGU7