#!/usr/bin/env perl
# $Id: dateclock,v 1.3 2013/02/22 21:41:37 friedman Exp $

use POSIX;

$| = 1;
while (1)
  {
    print strftime ("\r%Y-%m-%d %H:%M:%S %z", localtime),
          strftime (" %H:%MZ", gmtime);
    select (undef, undef, undef, 0.50);
  }

# eof