Perl Script to extract an ADL database and convert it to something else (like UDDF for now)