конвертировать системную дату в формате ISO 8601 в Perl

Я хочу, чтобы системная дата была преобразована в формат ISO 8601. код:

my $now = time();
my $tz = strftime("%z", localtime($now));
$tz =~ s/(\d{2})(\d{2})/$1:$2/;
print "Time zone *******-> \"$tz\"\n";
# ISO8601
my $currentDate =  strftime("%Y-%m-%dT%H:%M:%S", localtime($now)) . $tz;
print "Current date *******-> \"$currentDate\"\n";

Текущий вывод:

Time zone *******-> "-04:00"
Current date *******-> "2014-06-03T03:46:07-04:00"

Я хочу, чтобы текущая дата была в формате «2014-07-02T10: 48: 07.124Z», чтобы я мог вычислить разницу между ними.