#!/usr/bin/perl -w

use strict;

foreach my $file (readpipe("find .")) {
    chop $file;
    my ($root,$folder,$file) = split/\//,$file;
    next if !$file;
    next if $file eq ".DS_Store";
    print join ("\t", $folder, $file)."\n";
}