use vars '$AUTOLOAD';

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