print $cgi->table( 
          $cgi->Tr( 
               $cgi->td(-width=>"20%", [1,2,3,4,5])
          )
      );