Next time you post here asking for help, please try to make it a little easier for us to help you. Some of the following things would have been nice, and probably would have gotten your question answered faster:

• Copy and paste the code you are interested in fixing into your post.
• Explain what you tried to do to get it to work that didn't work.
• Explain what the code is supposed to do, and what happens when you try it. Describe the kind of system you tried it on .. OS, perl version, whatever else you think is relevant.
• Explain what errors you are getting and where.
• If you refuse to copy and paste the code, at least make the URL for the code be a clickable link (if you don't know how, check out the Writeup Formatting Tips node, it's also linked to near the bottom of the preview page you see when writing nodes.)

Having said that, I had a look. I don't have an Amazon Associates account to try it on, but when I tried running the code as is, I got a bunch of uninit errors - the first of which seems to trace back to missing values in the @fromdate array.
The @fromdate array reads from the second line of the URL request result from amazon. I'd try to manually build an html form page that calls the right url with the right parameters, and see what it's returning. Then try to fix yourself, or come back to perlmonks with your new information.