Select Code to Download

     use strict;
     use warnings;
...
                          minute     => 0,
                          second     => 0,
                           );

     my $dt2 = DateTime->now(time_zone=>'local');
     my $dt3 = DateTime->today(time_zone=>'local');

     print $dt1->ymd('-'); # produces 2003-08-20
     print $dt1->mdy('-'); # produces 08-20-2003
     print $dt1->datetime(); # produces 2003-08-20T00:00:00

    my $dt1 = DateTime->new( year => 2003, 
                             month => 8, day => 26,
                             hour => 21, 
                             time_zone => 'America/Chicago' );

    $dt2 = $dt1->clone->set_time_zone( 'Europe/Helsinki' );
    print $dt2->datetime, "\n";

     my $dt1 = DateTime-> new (
                     year =>'1998',
...

     $dt1->add(hours =>10);
     print $dt1->datetime ,"\n";

     use strict;
     use warnings;
...
     my $dt_class = 'DateTime::Format::HTTP';
     my $dt = $dt_class->parse_datetime($date);
     print $dt_class->format_datetime($dt);

use strict;
use warnings;
...
DateTime::Format::ISO8601->parse_datetime( $_[1]) } },
    ] }
  );

     my $dt = DateTime-> new(year => 2002,
                        month=> 8,
...
                       );

     my $cmp = DateTime->compare($dt, $dt2);

     if ($dt > $dt2) {do ....;}
     elsif($dt == $dt2) {do something else;}
     elsif($dt < $dt2) {do still something else...;}

   my $dt1 = DateTime->now();
   my $dt2 = $dt1->clone->subtract( weeks => 1);