use strict;
     use warnings;
     use DateTime;

     my $dt1 =  DateTime->new( year => 2003,
                          month      => 8,
                          day        => 20,
                          hour       => 0,
                          minute     => 0,
                          second     => 0,
                           );