DateTime tomorrow = DateTime->Now->plusDelta( DateTime::Delta->days( 1 ) );

##</code><code>##

sub plusDelta( 
   my( $self, $delta ) = @_;

   return bless \( $self += $delta ), __PACKAGE__;
}