use Date::Manip;
print map UnixDate($_, "%g\n"), ParseRecur("first monday of every month in 2001");