Small monkey patch in DateTime class (perl)