assorted perl scripts