sub StartTable {
    my $class = shift;
    my %self = @_;
    my $color = $self{'Color'};
    ...
}
##</code><code>##

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