$ perl -MTime::Moment -E 'while (1) { $x = Time::Moment->now_utc->strftime("%FT%T%6f%Z"); say $x if $x !~ /\.\d{6}Z$/ }'