# 2014-02
perl -le 'my (@ym) = (localtime($^T))[5,4]; $ym[0] += 1900; 
$ym[1]++; print sprintf qq{%4d-%02d}, @ym;'