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

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