Class & new perl scripts for the lab