c:\@Work\Perl\monks>perl -wMstrict -le
"my $t = time;
 print $t;
 print scalar localtime $t;
 print scalar localtime $t - 43200;
 print scalar localtime $t -  1800;
"
1597857155
Wed Aug 19 13:12:35 2020
Wed Aug 19 01:12:35 2020
Wed Aug 19 12:42:35 2020