use strict;
use warnings;

use feature qw{ say };
use Time::Piece;

my @dates = (
    q{1960-12-31 23:59:59},
    q{1966-06-24 09:44:00},
    q{1968-12-31 23:59:59},
    q{1969-01-01 00:00:00},
    q{1969-12-31 23:59:59},
    q{1970-01-01 00:00:01},
    q{2000-01-01 00:00:00},
    q{2017-06-24 23:59:59},
    q{2018-06-24 09:44:00},
    q{2238-06-24 09:44:00},
    q{1900-12-31 23:59:59},
    q{1901-01-01 00:00:00},
    q{1900-01-01 00:00:00},
    q{1899-12-31 23:59:59},
    );

foreach my $date ( @dates )
{
    my $tp = Time::Piece->strptime( $date, q{%Y-%m-%d %T} );
    say $date, q{ -> epoch }, $tp->epoch();
}