use strict;
use warnings;
use Date::Simple qw(date);
my $d = date("2008-01-01");
my $yesterday = $d - 1;
print $yesterday;
__END__
2007-12-31