$ perl -MDate::Manip -e 'print UnixDate(ParseDate("today"),"%C"),"\n"'; date +"%c"
Mon Sep  8 17:15:03 -0700 2003
Mon 08 Sep 2003 05:15:03 PM PDT

  # okay so far, the output matches that of UNIX 'date'

$ TZ=PDT perl -MDate::Manip -e 'print UnixDate(ParseDate("today"),"%C"),"\n"'; date +"%c"
Tue Sep  9 00:15:04 -0700 2003
Mon 08 Sep 2003 05:15:04 PM PDT

  # why does Date::Manip give me GMT and report -0700???