small updates to example perl code