I always use Date::Manip, it actually understands words like "today" and "yesterday":

use Date::Manip;

my $today = UnixDate( ParseDate("today"), "%Y%m%d");
my $yesterday = UnixDate( ParseDate("yesterday"), "%Y%m%d");
[download]