#!/usr/bin/perl

use strict;
use warnings;
use Time::Local;

my ($day,$month,$year) = (localtime)[3..5];
$year+=1900;
my $month2 = "";

if ( $month == 1 )
{
        $month2 = 12;
}
else
{
        $month2 = $month-1;
}

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