+++++++ Brilliant decision, especially s/(\.\w+)$/$today$1/.

Live and learn ;-)

      
--------------------------------
SV* sv_bless(SV* sv, HV* stash);