qwurx [shmem] ~> perl -MData::Dumper -MDate::Parse -le '@hash{qw(sec min hour mday mon year wday yday isdst)} = localtime str2time pop;print Data::Dumper->Dump([\%hash],[qw(timehash)])' '19 Aug 12:00 PM EDT'
$timehash = {
              'isdst' => 1,
              'min' => 0,
              'yday' => 230,
              'mon' => 7,
              'year' => '115',
              'sec' => 0,
              'wday' => 3,
              'hour' => 18,
              'mday' => 19
            };