sub AUTOLOAD {
   my ($self) = @_;
   my ($method);
   ($method = $AUTOLOAD) =~ s/.*://;
   if ($self->{xmms}->can($method)) {
      $self->{xmms}->

}