This is not a path I recommend; it may fail for time travelers:

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

Be well,
rir