Fix perl example