my first perl experience