use SDL;
use SDL::Music;
use SDL::Mixer;

my $music = SDL::Music->new('datei.ogg');
my $mixer = SDL::Mixer->new();
$mixer->play_music($music);

while ( $mixer->playing_music() ) {
    sleep 1;
}