#!/usr/bin/perl
#

@ARGV = (time) unless @ARGV;
for $t (@ARGV) {
	($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
		gmtime($t);
	printf("%04d-%02d-%02d %2d:%02d:%02d\n",1900+$year,1+$mon,$mday,$hour,$min,$sec);
}