first perl prog