$ perl -wE'my($m,$y)=(localtime)[4,5];--$m<0 and($m,$y)=($m+12,$y--);say $m+1,"-",$y+1900;'
9-2018