use Date::Manip;

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