use Date::Manip;

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

##</code><code>##

Mon Apr 16 00:00:00 2007