It would appear the code you posted has some syntax errors,
but the problem is the fact that you're passing Tr() an array of references. Tr would produce a separate row for each element in the array you pass it.
If you pass a single value, like so:

#!/usr/bin/perl -w
use strict;
use CGI qw(:standard);

print table({-border=>'1'},
                     Tr(
                       td({-width=>'20%'},'col1'),
                       td({-width=>'80%'},'col2')
                     )
                 );
[download]

You should find that solves your problem, (I've removed the square brackets that created the anonymous arrayref).
davis