opendir(INDIR, "$INDIR");
@mp3files = grep(/\.mp3$/, readdir(INDIR));