Fix perl example perl script