#!/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";

use strict;
use warnings;
use Date::Calc qw(Today Add_Delta_YM Mktime Now);

print Mktime(Add_Delta_YM(Today, 0, -1), Now);

my $date = now() - '1 M';