Hmm, looks like you'll need to fix this line also:

$page .=  table ({-border => 1, -align => "center"},
[download]

Should probably be (untested):

$page .=  table ({-border => 1, -align => "center"});
[download]

Remember, perl -c is your friend and will point out these types of errors.

-- vek --