#!/usr/bin/perl

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

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

my ($year2,$month2,$day2) = Add_Delta_YM($year,$month,$day,0,-1);

print "Debug: $day2, $month2, $year2\n";

my $time_now = timelocal(1, 0, 0, $day, $month, $year);
my $time_old = timelocal(1, 0, 0, $day2, $month2, $year2);
print "Debug: $time_now\n";
print "Debug: $time_old\n";