#!/usr/bin/env perl
# vim:ts=4:sw=4
use strict;
use warnings;

use POE qw{ Component::Client::MPD };

POE::Component::Client::MPD->spawn( {
    host           => 'localhost',
    port           => 6600,
    alias          => 'mpd',
	status_msgs_to => 'callback'
} );

$_[KERNEL]->post( mpd => 'next' );

sub callback { print "callback said : @_"; }