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

print "time: ", time(),"\n";
print "localtime: ", localtime(),"\n";
print "gmttime: ",  gmtime(),"\n";


time: 1427087838
localtime: 1817132321151810
gmttime: 181752321151810