#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use Time::Piece   qw( localtime );
use Time::Seconds qw( ONE_DAY );
use Scalar::Util  qw( refaddr );

my $tp1 = localtime;
my $tp2 = $tp1;
say join " ", refaddr($tp1), $tp1;
say join " ", refaddr($tp2), $tp2;
$tp2 += ONE_DAY;
say join " ", refaddr($tp1), $tp1;
say join " ", refaddr($tp2), $tp2;

__END__
81319590928 Tue Feb 25 09:38:52 2020
81319590928 Tue Feb 25 09:38:52 2020
81319590928 Tue Feb 25 09:38:52 2020
81319590784 Wed Feb 26 09:38:52 2020