perl main program snippet
python snippet