#!/usr/bin/perl -w

use strict;

#           Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
my @days = ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);

my ($d1,$m,$y) = (localtime)[3..5];
$y += 1900;
my $d2;

if ($d1 > 15) {
    $d1 = 1;
    $d2 = 15;
} else {
    if (--$m < 0) {
	$m = 11;
	$y--;
    }
    $d1 = 16;
    $d2 = $days[$m];
}
$m++;
printf "%04d%02d%02d-%04d%02d%02d\n",$y,$m,$d1,$y,$m,$d2;


##</code><code>##

---
print map { my ($m)=1<<hex($_)&11?' ':'';
$m.=substr('AHJPacehklnorstu',hex($_),1) }
split //,'2fde0abe76c36c914586c';