use strict;
use Date::Calc qw(:all);

my ( $year, $month, $day ) = map { sprintf "%.2d", $_ }
    Add_Delta_Days( Today(), -1 );

print join '', $year, $month, $day, "\n";

__END__