just another perl shoter

เขียนให้สั้นที่สุด น่าจะได้ประมาณเนี้ย