#!/usr/bin/perl

use strict;               # strict und warnings sollten in jedem Perl-Programm
                          # stehen
use warnings;
use DateTime;             # Das Modul vom CPAN, mit dem man Datumsberechnungen
                          # machen kann

my $hours = '23:59';      # Die Uhrzeit auf die etwas draufgerechnet werden soll
my $date  = '12.12.2008'; # das Anfangsdatum
my $diff  = 3;            # 3 Stunden draufrechnen

my %hash  = ();
# speichere in dem Hash die Werte aus den Strings.
@hash{qw/day month year hour minute/} = (split(/\./, $date), split(/:/, $hours));

# Erzeuge ein neues DateTime-Objekt mit den Daten von oben als Parameter
my $date     = DateTime->new( %hash );
# Addiere die Zeitdifferenz hinzu
my $new_date = $date->add( hours => $diff );

# Ausgabe der neuen Zeit
print "Neue Zeit: ", $new_date->dmy('.'), " ", $new_date->hms,"\n";