Did you read the documentation I pointed to? Did you
try modifying the snippet accordingly? Did it fail?
If so, please indicate what you did, what you expected
would happen, and what did happen.
If you think I will spoon feed you some very basic Perl
idiom, you are mistaken.