Automatically generated perl script, step 2.