use Time::Piece;
use strict;
use warnings;
my $date = '20070301103000';

my $start = Time::Piece->strptime($date, "%Y%m%d%H%M%S")->epoch;
print $start, "\n";