Perl script problems

[gosolivi]

I found some Perl script in the web and changed it for my own use. When I use it I get an http500 error. Can someone help. The script is attached. It is activated by clicking the 'Buying' button on the left and filling out the form.

Thanks,
Tony