#!/usr/bin/perl -w
use File::Find;
use vars qw($prev);
finddepth(\&output, '.');

sub output {
    return if $File::Find::name !~ /.mp3$/;
    print "<p>$File::Find::dir</p>\n" if $File::Find::dir ne $prev;
    $prev = $File::Find::dir;
    (my $n = $File::Find::name) =~ s/.*\///;
    print "\t<blockquote>$n</blockquote>\n";
}