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;