I don't understand why you set $source the way you do. Is this what you want?

my $source = DateTime->now(time_zone => 'America/Chicago');
[download]