Yes, you're missing essential parts of any good perl script:

use strict;
use warnings;
[download]

And if you want to know why there is an "error 500", look in your webserver's error.log. (And don't forget to set the executable bit on the script).