1#!/usr/bin/perl
2use strict;
3use warnings;
4
5use Time::Moment qw[];
6use JSON::XS     qw[];
7
8print JSON::XS->new->convert_blessed->encode([ Time::Moment->now ]), "\n";
9