Trying to capture the current date to include on the TPL output.  The TPL includes Perl script for other things which works.
From the code below, the output is a bunch of numbers like "1204922551", how can we format it to be like 3/7/2008 or March 7, 2008?
Code: 
   BEGIN{
       $ENV{TZ} = "US/Central";
   };
   use Date::Manip;
   use Time:

arseDate;
   my $string1 = localtime(time);
   my $date3 = parsedate($string1);
Output:
 iwpt_output($date3);
TeamSite Environment: TS 6.7.1 / WIN