#!/usr/bin/perl -l

use DateTime;
use DateTime::Duration;

my $horario = DateTime->now()->set(
                hour    => 14,
                minute  => 30,
                second  => 0
);

my $cinco_minutos = DateTime::Duration->new(
                minutes => 5,
);

print $horario->add_duration( $cinco_minutos )->hms();  # 14:35:00

print $horario; # 2007-09-25T14:35:00

print $horario->clone()->add( $cinco_minutos )->hms();