Your IP : 216.73.217.90

Current Path : /proc/self/root/proc/thread-self/root/usr/share/doc/perl-Time-Moment/eg/
Upload File :
Current File : //proc/self/root/proc/thread-self/root/usr/share/doc/perl-Time-Moment/eg/json.pl

#!/usr/bin/perl
use strict;
use warnings;

use Time::Moment qw[];
use JSON::XS     qw[];

print JSON::XS->new->convert_blessed->encode([ Time::Moment->now ]), "\n";