#!/usr/bin/perl -w
#
# Probando el cambio de horario

$t=1017561600;

while($t<=1036310400) {
  $s=localtime($t);
  print "$t\t$s\n";
  $t+=3600*24*7;
}