Finished for deadline
Add back stuff that was gone
Add other perl script