Write a peecol script

@juanxo: ping