#!/usr/bin/perl

use strict;
use warnings;

use DateTime::Format::Strptime;

my $strp = DateTime::Format::Strptime->new(pattern => '%H:%M%P');

my $time = $strp->parse_datetime('8:35am');

$time->add(hours => 1, minutes => 23);

print $strp->format_datetime($time), "\n";