Math

How many days from now until X?

my $today = DateTime->today
                ( time_zone => 'floating' );
my $yapc  =
    DateTime->new
        ( year  => 2007,
          month => 8,
          day   => 28 );

my $delta = $yapc->delta_days($today);

print " Days until YAPC::EU 2007: ",
      $delta->delta_days, "\n";

continued...