update perl tut 01 draft