# assuming this...
my $q = new CGI;

# then use this
print $q->Tr(
          $q->td({-width=>'15%'},$col[0]),
          $q->td({-width=>'40%'},$col[1]),
          $q->td({-width=>'25%'},$col[2]),
          $q->td({-width=>'30%'},$col[3]),
      );