my $year =
   (
      ( localtime(
           (  (stat("."))[9] || die "stat die"  )
                 )
      )[5] || die "localtime die" 
   )
   + 1900;