#!/opt/perl/5.8.0/bin/perl

use Time::Local;
use strict;

my $nowTime = time;
my $winTime = timegm (0, 0, 9, 1, 0, 107);
my $sumTime = timegm (0, 0, 9, 1, 6, 107);

foreach my $e ($nowTime, $winTime, $sumTime) {

  foreach ("UTC","GB-Eire","Europe/London","CET","Europe/Warsaw","Europe/Paris") {

    $ENV{TZ} = $_;

    print scalar localtime($e), " $ENV{TZ}";
    print " (DST)" if ((localtime($e))[8]);
    print "\n";

  }

  print "\n";

}