while (($music_playlist_line_number, $music_file) = each(%AllFiles)){
$winmm = new Win32::MediaPlayer;
$winmm->load("User Files\\$name\\Pro Playlist\\$music_file"); 
$winmm->play;
$winmm->volume($volume);
$song_length_micro = $winmm->length;
$song_length = ($song_length_micro * .001) + .05; 
### + .05 second buffer between songs;
$song_pos_micro = $winmm->pos;
sleep ($song_length);
}