#!/usr/bin/perl -wt
cd ../mp3
ls -1tr */*mp3 >playlist.m3u