Hi,
I was just trying to keep the code to a minimum however just to add a little more code, at the top of the program was

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
[download]

Cheers.