use DateTime;
  use DateTime::TimeZone;

  #For testing
  
  $zone = "America/Chicago";
  $date = "8/5/1967";
  $time = "8:30:00";
  
  my $tz = DateTime::TimeZone->new( name => $zone );
  ($day,$month,$year) =~ split(/\//,$date);
  ($hour,$minutes,$seconds) =~ split(/\:/,$time);
  
  my $dt = DateTime->new(
      year       => $year,
      month      => $month,
      day        => $day,
      hour       => $hour,
      minute     => $minutes,
      second     => $seconds,
  );