#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11150757
use warnings;

my $target = "/home/zsolti/Temp";
$target = '../mnt/home/old'; # FIXME for testing on my system
my @exclude = (
  #'2023_02_21_Szentendre_Pilis_EK_oldal'
  'webftp'
 ,'x'
);

my (@audioFiles, %playList);
my $numOfRandFiles = 10;

my @queue = $target;
while( defined( my $path = pop @queue ) )
  {
  if( -f $path and $path =~ /\.mp3$/i )
    {
    push @audioFiles, $path;
    }
  elsif( -d $path and not grep $path =~ /\/\Q$_\E\z/, @exclude )
    {
    push @queue, <$path/*>;
    }
  }

$playList{ splice @audioFiles, rand @audioFiles, 1 } ||= $_
  for 1 .. $numOfRandFiles;

printf "%3d %s\n", $playList{$_}, $_ for sort keys %playList;