Select Code to Download

use strict;
use Time::Local;
...
my $time = timelocal($sec,$min,$hour,$mday,$mon,$year) - ONE_DAY;

print scalar localtime($time);

use Time::Local;

...
$mday = (localtime($time))[3];

print "Day of month: $mday\n";