use Date::Manip;

print UnixDate( ParseDate( "last business day of september 2002"), '%F' );