Select Code to Download

#!/usr/bin/env perl

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

__END__

use strict;
use Date::Calc qw(:all);
...
print join '', $year, $month, $day, "\n";

__END__