#!/usr/bin/perl

use lib 'lib', '../lib';

use Time::HiRes;
use POSIX::strftime::GNU;
use POSIX qw( strftime locale_h );

setlocale(LC_TIME, 'C');

my ($t, $nsec) = Time::HiRes::gettimeofday;
my @t = localtime $t;
$t[0] += $nsec / 10e5;

print strftime('%Y-%m-%dT%H:%M:%S,%N%z', @t), "\n";