#!/usr/bin/perl
use 5.028;
use warnings;
use Time::Local;
my $t = timegm(0, 0, 0, 1, 0, 70);
say strftime
("%Y-%m-%d %H:%M:%S", gmtime($t));
IyEvdXNyL2Jpbi9wZXJsCnVzZSA1LjAyODsKdXNlIHdhcm5pbmdzOwp1c2UgUE9TSVggcXcoc3RyZnRpbWUpOwp1c2UgVGltZTo6TG9jYWw7CgpteSAkdCA9IHRpbWVnbSgwLCAwLCAwLCAxLCAwLCA3MCk7CnNheSBzdHJmdGltZSgiJVktJW0tJWQgJUg6JU06JVMiLCBnbXRpbWUoJHQpKTsK