#!/usr/bin/perl -w
###########################################
# lord_howe - Daylight savings time on
#             Lord Howe's island
# Mike Schilli, 2005 (m@perlmeister.com)
###########################################
use strict;
use DateTime;

my $dt = DateTime->new(
  year   => 2005,
  month  => 10,
  day    => 30,
  hour   => 1,
  minute => 59,
  second => 59,
  time_zone => 'Australia/Lord_Howe',
);

$dt->add( DateTime::Duration->new(
            seconds => 1) );

    # 2005-10-30 02:30:00
print $dt->date(), " ", 
      $dt->hms(), "\n";