title: perl print current year in 4 digit format
body: <p>how do i get the current year in 4 digit this is what i have tried</p>
  
  <pre><code> #!/usr/local/bin/perl
  
   @months = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );
   @days = qw(Sun Mon Tue Wed Thu Fri Sat Sun);
   $year = $year+1900;
   ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
   print "DBR_ $year\\$months[$mon]\\Failures_input\\Failures$mday$months[$mon].csv \n";
  </code></pre>
  
  <p>This prints <code>DBR_ 114\Apr\Failures_input\Failures27Apr.csv</code></p>
  
  <p>How do I get 2014?</p>
  
  <p>I am using version <code>5.8.8 build 820</code>.</p>