/examples/SDLx/music.pl

1use SDL;
2use SDLx::Music;
3$music = SDLx::Music->new;
4$music->data( sam => "test/data/sample.wav" );
5$sam = $music->data("sam");
6$music->play($sam);
7while ( $music->playing ) { print "playing\n" }