RAD perl scripts

via Storer