#!/usr/bin/perl -w 
#
use strict; 
use warnings; 
use Date::Calc qw(:all); 

($year, $month, $day) = Today(); 
$Dd = -1; 

($year,$month,$day) = Add_Delta_Days($year,$month,$day, $Dd);

$year = $year; 
$month = "$month"; 
$day = "$day"; 

print "$year\n"; 
print "$month\n"; 
print "$day\n"; 
print "$year$month$day\n";

##</code><code>##

my ($year, $month, $day) = Today();
my $Dd = -1;

##</code><code>##

$month = sprintf("%02d", $month);