Select Code to Download

my @dates = (
    "1901-01-01 00:00:00",
...
    my $date = DateTime->from_epoch( epoch => $epoch );
    print $date->ymd, " ", $date->hms, "\n\n";
}

1901-01-01 00:00:00 (978307200 seconds)
2001-01-01 00:00:00
...

1970-01-01 00:00:01 (1 seconds)
1970-01-01 00:00:01

use Time::Local;

...
    my $date = DateTime->from_epoch( epoch => $epoch );
    print $date->ymd, " ", $date->hms, "\n\n";
}

1901-01-01 00:00:00 (-2177452800 seconds)
1901-01-01 00:00:00
...

1970-01-01 00:00:01 (1 seconds)
1970-01-01 00:00:01