#!/usr/bin/perl -l
# 08/24/06 09:30 => Thursday, August 24th  9:30am

use DateTime::Format::Strptime;

my $format_input  = '%D %H:%M';
my $format_output = '%A, %B %eth %l:%M%P';

my $Strp = new DateTime::Format::Strptime(
  pattern     => $format_input,
  locale      => 'en_US',
  time_zone   => 'America/New_York',
);

## Start
my $date_time = '08/24/06 09:30';                # 1. Get the date/time
my $dt        = $Strp->parse_datetime( $date );  # 2. Convert to DateTime object
my $newtime   = $dt->strftime( $format_output ); # 3. Output the new date/time
print $newtime;
## End