add perl scripts for legacy support