#!/usr/bin/perl

use Audio::MP3::JMD;
use POSIX ":sys_wait_h";
$| = 1;

my $player = new Audio::MP3::JMD ({ songs => ["/root/electronica/metroidmodules.mp3"],
                                    code => sub {
                                                 return;
                                    }
                                  });
$player->add("/root/electronica/fleetingecstacy.mp3");
$SIG{CHLD} = sub {
 my $stiff;
 while (($stiff = waitpid(-1, &WNOHANG)) > 0) {
  print "Nighty, night!\n";
  print $stiff, "\n";
  exit 1;
 }
};

do {
 print join "\n", @{$player->{queue}};
 print "\n";
 print "-" x 80;
 sleep 5;
} while 1;