Select Code to Download

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

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

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