Date :: Calc - форматирование дня и месяца

Все, что я здесь пытаюсь сделать, это добавить ноль в однозначную цифру дня или месяца. перед ней. Сейчас он печатает дату как 201188, и я ищу 20110808.

#!/usr/bin/perl
use Date::Calc qw(Add_Delta_Days); 
my (undef, undef, undef, $day, $month, $year) = localtime(); 
$year +=1900; 
$month +=1; 
($year, $month, $day ) = Add_Delta_Days($year, $month, $day, -3)
if ($month =~ /\d{1}/){
    s/$month/0$month/
}  
if ($day =~/\d{1}/){ 
    s/$day/0$day/
}
print $year,$month,$day;