opendir( DIR, $input_dir ) || die "Can't open dir $input_dir: $!";
my @mp3 = grep { /\.mp3/ } readdir(DIR);
closedir DIR;