sub new {
   my ($class) = @_;

   my ($self, $pid);
   $self = bless +{}, $class;
   $self->{xmms} = Xmms::Remote->new;
   # ... more stuff ...
}