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

$t=985500000+7200;

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