#!/usr/bin/perl -w
use strict;

print formatDTV( localtime ), ' - (GMT: ',
      formatDTV( gmtime ), ')';
         
exit 1;

sub formatDTV
# --------------------------------------------------------------
# When passed a datetime array (localtime or gmtime), returns a
# string formatted for my preferences.
#
# Reminder:    [0]  [1]  [2]  [3]  [4]  [5]  [6]  [7]  [8]
# (gmtime) = ( $ss, $mm, $hh, $dd, $mo, $yr, $wd, $dy, $ds )
# --------------------------------------------------------------
{
   my @moy = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );
   my @dow = qw( Sun Mon Tue Wed Thu Fri Sat );

   $_[4] = $moy[ $_[4] ];  
   $_[5] += 1900;

   return sprintf "%s., %02u %s. %u, %02u:%02u", 
                  $dow[ $_[6] ], @_[3..5], $_[2], $_[1] 
}