Select Code to Download

#  0    1    2     3     4    5     6     7     8
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = 
localtime(time);

  my @abbr = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
  print "$abbr[$mon] $mday";
  # $mon=9, $mday=18 gives "Oct 18"

  $year += 1900;

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

# 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]];'