# 2014-Feb
perl -le 'my @abbr = qw(Jan Feb Mar Apr May Jun Jul Aug Sep 
Oct Nov Dec); my (@ym) = (localtime)[5,4]; 
$ym[0]+= 1900; print sprintf qq{%4d-%3s}, $ym[0], $abbr[$ym[1]];'