#!/usr/bin/env perl

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

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

__END__