use DateTime qw();
my $dt = DateTime->new(
    year   => 2007,
    month  => 8,
    day    => 10,
    hour   => 0,
    minute => 0,
    second => 0,
    time_zone => 'floating',
                # oder 'UTC' oder 'Europe/Berlin', je nachdem, was du hast
);

my $tomorrow = $dt->clone->add(days => 1);

while ($dt < $tomorrow) {
    print $dt->strftime('%T'), "\n"; # The time in 24-hour notation (%H:%M:%S).
    $dt->add(minutes => 5);
};