use strict;
use warnings;
use DateTime;
use Data::Dumper;
my $t = DateTime->now;
print Dumper $t;

##</code><code>##

$VAR1 = bless( {
                 'local_rd_secs' => 25639,
                 'local_rd_days' => 735072,
                 'rd_nanosecs' => 0,
                 'locale' => bless( {
                                      'default_time_format_length' => 'medium',
                                      'native_territory' => 'United States',
                                      'native_language' => 'English',
                                      'native_complete_name' => 'English United States',
                                      'en_language' => 'English',
                                      'id' => 'en_US',
                                      'default_date_format_length' => 'medium',
                                      'en_complete_name' => 'English United States',
                                      'en_territory' => 'United States'
                                    }, 'DateTime::Locale::en_US' ),
                 'local_c' => {
                                'hour' => 7,
                                'second' => 19,
                                'month' => 7,
                                'quarter' => 3,
                                'day_of_year' => 204,
                                'day_of_quarter' => 23,
                                'minute' => 7,
                                'day' => 23,
                                'day_of_week' => 2,
                                'year' => 2013
                              },
                 'utc_rd_secs' => 25639,
                 'formatter' => undef,
                 'tz' => bless( {
                                  'name' => 'UTC'
                                }, 'DateTime::TimeZone::UTC' ),
                 'utc_year' => 2014,
                 'utc_rd_days' => 735072,
                 'offset_modifier' => 0
               }, 'DateTime' );