my $event = "20000504"; #or the value of your BDA hash
    open(DT,"date -d $event '+%A, %B %e, %Y' |");
        my $date = <DT>;
        chop($date);
    close DT;
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.