#!perl
use strict;
use Date::Parse;
my $epoch1 = str2time('20181028');
my $epoch2 = str2time('20181029');
my $secs   = $epoch2 - $epoch1;
printf "%d - %d %d\n",$epoch2,$epoch1,$secs;