#!/usr/bin/perl
use strict;
use warnings;
use Date::Simple;

my $date = Date::Simple->new('2005-03-01');

for (reverse 1..5) {
	print $date - $_, "\n";
}