more perl samples
poerl