First perl attempts