more work on perl mpd client