As an aside, DateTime->today() very likely incorrect because it doesn't return the local date. If you want the local date, you could use

DateTime->today( time_zone => 'local' )
[download]

However, that will fail on a day without midnight. The following is the correct approach is:

DateTime
   ->now( time_zone => 'local' )
   ->set_time_zone('floating')
   ->truncate( to => 'day' )
[download]