use Audio::Play::MPG123;
my $player = new  Audio::Play::MPG123;
$player->load("a.mp3");
print $player->artist,"\n";
$player->poll(1) until $player->state == 0;