#!/usr/bin/perl -w
use strict;
use DateTime::Format::ISO8601;
use DateTime::Format::Strptime;
use Data::Dumper;
my $di = DateTime::Format::ISO8601->parse_datetime('2018-08-20T06:43:50.330Z');
my $dv = DateTime::Format::ISO8601->parse_datetime('2018-08-20T06:46:56.147Z');
my $delta = $dv - $di;
print Dumper $delta;