#!/usr/bin/perl
use 5.028;
use warnings;
use POSIX qw(strftime);
use Time::Local;

my $t = timegm(0, 0, 0, 1, 0, 70);
say strftime("%Y-%m-%d %H:%M:%S", gmtime($t));