use warnings;
use strict;
use Date::Simple qw(today);
print 'today     = ', today(), "\n";
print 'yesterday = ', today() - 1, "\n";

__END__

today     = 2013-08-02
yesterday = 2013-08-01