sub get_attributes {
  my ($options, $valid) = @_;
  my @attributes;
  for (@{$valid}) {
    my $value = $options->{$_};
    push @attributes, qq($_="$value") if $options->{$_};
  }
  return join(' ',('',@attributes));
}