use Date::Parse;
my $adate = "2017-01-29 11:30:07.370"
my $new_datetime = str2time $adate;
print $new_datetime,$/;
__END__
1485685807.37