my $yesterday   = time - (60 * 60 * 24);
my ($d, $m, $y) = (localtime($yesterday))[3,4,5];
$yesterday      = sprintf("%04d/%02d/%02d", $y += 1900, $m += 1, $d);