#!/usr/bin/perl

use Time::localtime;

my($utime) = $ARGV[0];

$utime = hex($utime) if ($utime =~ /[a-f]/i);

$lt = localtime($utime);
printf("%04d-%02d-%02d %02d:%02d:%02d\n",
    $lt->year + 1900,
    $lt->mon + 1,
    $lt->mday,
    $lt->hour,
    $lt->min,
    $lt->sec
);
