use Date::Simple qw(date);
my $d = date("2007-12-12");
my $yesterday = $d - 1;
print $yesterday;