fork download
  1. use 5.016;
  2. use warnings;
  3. use Time::Piece;
  4.  
  5. my $t = localtime;
  6. $t = $t->add_years(30);
  7. say $t;
  8.  
Success #stdin #stdout 0.03s 4904KB
stdin
Standard input is empty
stdout
Thu Aug 27 11:17:01 2043