#!/usr/bin/env perl

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

printf "%d%.2d%.2d\n", Add_Delta_Days( Today(), -1 );

__END__

##</code><code>##

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__