#! /usr/bin/perl

        $time = $ARGV[0];

        ($sec, $min, $hour, $mday, $mon, $year) = gmtime($time);
        printf("%d-%02d-%02d %02d:%02d:%02d\n", $year + 1900, $mon + 1, $mday, $hour, $min, $sec);
