use DateTime;
use Cwd 'cwd';
use strict;
use warnings;

print 'DateTime->VERSION ', DateTime->VERSION,$/;
print 'DateTime::TimeZone->VERSION ', DateTime::TimeZone->VERSION,$/;
print cwd,$/;

eval { DateTime->now( time_zone => 'local' ); 1} or print $@,$/;
DateTime->now( time_zone => 'America/Los_Angeles' );

print cwd,$/;

__END__

DateTime->VERSION 0.1901
DateTime::TimeZone->VERSION 0.2503
C:/dev/LOOSE
Cannot determine local time zone

C:/dev/LOOSE