#!/usr/bin/perl
use strict;
use warnings;
use lib 'lib',
"$ENV{HOME}/lab/perl/Net-DAAP-DMAP/lib",
"$ENV{HOME}/lab/perl/Net-DMAP-Server/lib",
"$ENV{HOME}/hck/opensource-trunk/POE-Component-Server-HTTP/lib";
use POE;
use Net::DAAP::Server;
my $path = shift || 't/share';
my $server = Net::DAAP::Server->new(path => $path, port => 23689, debug => 1);
$poe_kernel->run;