my $timestamp = UnixDate(ParseDate('last sunday'), "%s"); if (! is $obj->is_weekday($timestamp), 0, 'Sunday ($ts) is weekend')) { diag "Last sunday = " . localtime($timestamp) . " ($timestamp)"; diag "ParseDate('last sunday'):" . ParseDate('last sunday'); };