# rough comparison
D:\music>perl -MFile::Find -e "find(sub{$File::Find::name}, '.');print time-$^T"
6

D:\music>perl -e "`tree /f /a`;print time-$^T"
1