Select Code to Download

sub StartTable {
    my $class = shift;
...
    my $color = $self{'Color'};
    ...
}

$sm->StartTable( Color => 'Ugly Yellow', 
                 Height => 'Too Tall',
                 Width => 'Skinny');