$ perl -Mstrict -Mwarnings -E '
    my $x = time; say $x;
    my $y = int($x - (25*365.24225*24*60*60)); say $y;
    my $z = (localtime($x-$y))[5]; say $z
'
1389999563
601076303
95