use POSIX qw(strftime);
use strict;
use warnings;
my $date = '08/24/06';
my $time = '09:30';

my ($month,$day,$year) = split /\//, $date;
my ($hour,$min) = split /:/, $time;
my $formatted = strftime("%A, %B %d %I:%M %p",0,$min,$hour,$day,$month,$year);
print $formatted, "\n";