perl attribute demo .......................