#!/usr/bin/perl -w
use strict;
use DateTime;
use DateTime::Format::Strptime;

my $format = 
    DateTime::Format::Strptime->new(
  pattern   => "%A, %B %d %Y, %H:%M",
  locale    => "en_UK",
  time_zone => 'Asia/Tokyo',
);

my $dt = $format->parse_datetime(
  "Sunday, January 29 2006, 07:30");

$dt->set_formatter($format);

print "Departure:  $dt\n";

$dt->add( DateTime::Duration->new(
    hours   => 6, 
    minutes => 30) );

$dt->set_time_zone( 'Pacific/Honolulu' );
print "Arrival: $dt\n";