Select Code to Download

#!/usr/bin/perl -w
use strict;

my ($d, $m, $y) = (localtime (time-86_400)) [3..5];
printf "%04d%02d%02d\n", $y+1900, $m+1, $d;