use Date::Manip;

print UnixDate (ParseDate ('next monday'), '%c');