#!/usr/bin/perl -w
###########################################
# daytrip - Travel from Japan to Hawaii
# Mike Schilli, 2005 (m@perlmeister.com)
###########################################
use strict;
use DateTime;
use DateTime::Format::Strptime;

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

my $dt = $format->parse_datetime("
    Sonntag, den 29.01.2006 um 07:30");

$dt->set_formatter($format);

print "Abflug:  $dt\n";

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

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