#!/usr/local/bin/perl -w

require 'ctime.pl';

if ($#ARGV < 0) {
	print &ctime (time);
	exit (0);
}

foreach (@ARGV) {
	s/,//;
	if (m/[a-fA-FxX]/) {
		unless (m/^0[xX]/) {
			$_ = '0x' . $_;
		}
		$_ = oct;
	}
	print &ctime ($_);
}
exit (0);