use Date::Manip;

$diff = &DateCalc("now", "21st at midnight");
$seconds = &Delta_Format($diff, 0, "%st");