# It seems there will be still 32bit cpus with multiple cores that day
# so I do not even think what will happen ...

use strict;
my $now = (split /\s+/,scalar localtime time)[-1];
my $year = (localtime time)[5];
my $total= int 2**32/(365*24*3600);
print $now - $year + $total;

George wrote:
> # It seems there will be still 32bit cpus with multiple cores that day
> # so I do not even think what will happen ...
>
> use strict;
> my $now = (split /\s+/,scalar localtime time)[-1];
> my $year = (localtime time)[5];
> my $total= int 2**32/(365*24*3600);
> print $now - $year + $total;

I don't understand why you posted all that.
Everybody knows about the Y2038 "problem".

perl -le 'print scalar gmtime(2**31-1)'
Tue Jan 19 03:14:07 2038