Being asked almost daily by one of my fellow Copenhagen Perl Mongers whether I am a father now, I have implemented DateTime::Pregnancy. It implements the simple formular for calculating the birthday.
When I then answer in technical terms referring to pregnancy week numbers, I get complaints, so the module also holds a function for calculating week numbers.
It is available from the subversion system of the Copenhagen Perl Mongers.