...

my $dur2 = do {
   my $ref = DateTime->new(
      year => 2006, month => 1, day => 1,
      hour => 0, minute => 0, second => 0,
      time_zone => 'UTC',
   );
   $ref + $dur - $ref
};

printf("%s hours, %s minutes, %s seconds\n",
   $dur2->in_units(qw( hours minutes seconds ))
);

my $dur3 = do {
   my $ref = DateTime->new(
      year => 2005, month => 12, day => 31,
      hour => 23, minute => 59, second => 59,
      time_zone => 'UTC',
   );
   $ref + $dur - $ref
};

printf("%s hours, %s minutes, %s seconds\n",
   $dur3->in_units(qw( hours minutes seconds ))
);