or download this
#!/usr/bin/perl
use strict;
...
Date value = 2017-06-24 23:59:59, epoch = 1498341599, date = 2017-06-
+24 23:59:59
Date value = 2018-06-24 09:44:00, epoch = 1529826240, date = 2018-06-
+24 09:44:00
Date value = 2238-06-24 09:44:00, epoch = 8472325440, date = 2238-06-
+24 09:44:00