misc perl scripts to make life easier