sub time { # ** conflicts with builtin 'time'! Yow!
  my $thistime = shift;
  $thistime -= 3 * 3600; # - three hours, since GMT+3 is that much earlier.
  my @a = gmtime($thistime);
  ...
}