use strict;
my ($day, $month, $year) = (localtime) [3, 4, 5];
$year += ($month += ($day = $day > 15 ? 0 : 15) ? 11 : 0) == 11 ? 1899 : 1900;
my ($start_day, $end_day) = map {sprintf("%4.4d%2.2d%2.2d", $year, $month % 12 + 1, $_)} ($day, $day ? 31 : 15);
print "New Releases from $start_day to $end_day \n"