use CGI qw/:standard *table/; print start_table( { border => 2 } ); # command line perl -MCGI=:standard,*table -e 'print start_table({-border=>2})'