# print &ctime(773108944-18000),"\n";
# print &ctime(773141337),"\n";
# print &ctime(773141337-18000),"\n";
# print &ctime(946530000),"\n";
# print &gmctime(946530000),"\n";

# print &ctime(773535916),"\n";
# print &gmctime(773535916),"\n";
# print &gmctime(773507363),"\n";
# print &gmctime(773539760),"\n";
# print "request.till: ",&gmctime(773536160),"\n";

require "$ENV{HOME}/perl/ctime.pl";

$x = $ARGV[0];
print "input: ",$x,"\n";
print "local: ",&ctime($x),"\n";
print "gmt:   ",&gmctime($x),"\n";