#!/usr/bin/perl

use warnings;
use strict;
use Time::Local;
use Date::Calc qw(Add_Delta_YMD);

my ($sec,$min,$hour,$day,$month,$year) = (localtime)[0..5];
$month++;
$year+=1900;
print "Debug: $sec, $min, $hour, $day, $month, $year\n";

my ($Dy, $Dd) = 0;
my $Dm = 1;
my ($year2, $month2, $day2) = Add_Delta_YMD($year, $month, $day, $Dy, -$Dm, $Dd);
print "Debug: $sec, $min, $hour, $day2, $month2, $year2\n";