All I get is 500 internal server error.

See the CGI Help Guide and Troubleshooting Perl CGI scripts. You could also just try adding use CGI::Carp qw/fatalsToBrowser/; at the top of the script.