#!/usr/bin/perl -w

my @months = ('Enero','Febrero','Marzo','Abril','Mayo','Junio','Julio',
              'Agosto','Septiembre','Octubre','Noviembre','Diciembre');
my @monthsa = ('Ene','Feb','Mar','Abr','May','Jun','Jul',
              'Ago','Sep','Oct','Nov','Dic');
                  

sub DateTime
{
  my ($eltime)=@_;
  my ($sec,$min,$hour,$numdiames,$nummes,$year,$numdiasem,$yday,$isdst) = 
    localtime($eltime);
  return sprintf ("%02d:%02d %02d/%3s %d",$hour,$min,$numdiames,$monthsa[$nummes],$year+1900);
  # $nummes++; 
  # return sprintf ("%d %02d/%02d %02d:%02d",$year+1900,$numdiames,$nummes,$hour,$min);
}


if (not defined $ARGV[0]) { 
  print "Syntax $0 time time2 time3 ...\n";
  print "Now: ",time()," - ",DateTime(time()),"\n";
  exit 55;
  }
for (@ARGV) {
  $tiempo=$_;
  print "$tiempo: ",DateTime($tiempo),"\n";
  }