#!/usr/bin/perl -w
use File::Find;

finddepth(\&output, '.');

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