my ($sec,$min,$hour,$day,$month,$year) = (localtime)[0..5];
$month++;
$year+=1900;

use Date::Calc qw(Add_Delta_YM);

my ($day,$month,$year) = (localtime)[3..5];
$month++;
$year+=1900;
my ($n_year,$n_month,$n_day) = Add_Delta_YM($year,$month,$day, 0,1);

use Date::Manip;

my ($newdate) = DateCalc("today", "- 1month");

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

Use of uninitialized value in subroutine entry at ./test.pl line 15.

my ($Dy, $Dd) = 0;
my $Dm = 1;
my ($year2, $month2, $day2) = Add_Delta_YMD($year, $month, $day, $Dy, -$Dm, $Dd);

my ($Dy, $Dd) = 0;

my ($Dy, $Dd) = (0,0);

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

Debug: 20, 4, 2007
Debug: 20, 3, 2007
Debug: 1179612001
Debug: 1177020001