testing testing perl so far ...

can i change ???