Automatically generated perl script, step 3.