before upgrade

perl -MExtUtils::Installed -e “use v5.10; $i=ExtUtils::Installed->new(); @m=$i->modules(); foreach $mm (@m) {say $mm .’ – ‘. $i->version($mm);}”

Useful Perl date tricks

perl -MDate::Manip -e ‘Date_Init(“Language=Romanian”,”DateFormat=non-US”); print UnixDate(DateCalc(“azi”,”+ 18 zile lucratoare”),”%A, %e %B %Y%n”)’ Output: marti, 8 decembrie 2009 perl -MDate::Manip -e ‘Date_Init(“Language=Romanian”,”DateFormat=non-US”); @date=ParseRecur(“fiecare simbata din decembrie”); foreach (@date) {$d=UnixDate($_, “%A, %e %B %Y%n”); $d=~s/(\w+)/\u\L$1/g; print $d}’ Simbata, 5 Decembrie 2009 Simbata, 12 Decembrie 2009 Simbata, 19 Decembrie 2009 Simbata, 26 Decembrie 2009

Bad Behavior has blocked 85 access attempts in the last 7 days.