Cacher is the code snippet organizer for pro developers

&trace('.');

sub trace {
    my $dir = shift;
    for (<$dir/*>) {
        &trace($_) if -d $dir;
    }
    print $dir."\n";
}