sub padded {
  my ($text, $arg_ref) = @_;  
  
  # Set defaults... 
  #            If option given...        Use option         Else default     
  my $cols   = exists $arg_ref->{cols}   ? $arg_ref->{cols} : $DEF_PAGE_WIDTH; 
  my $filler = exists $arg_ref->{filler} ? $arg_ref->       : $SPACE; 
 
  # ... etc
  
  return $filler x $left . $text . $filler x $right; 
}