note Tommy <code> Use File::Util; my $f = File::Util->new(); my @dirs = $f->list_dir('C:\Input', qw( --dirs-only --recurse --with-paths )); </code> <div class="pmsig"><div class="pmsig-222307"> -- <br /> [Tommy]<br /> <code>$ perl -MMIME::Base64 -e 'print decode_base64 "YWNlQHRvbW15YnV0bGVyLm1lCg=="'</code> </div></div> 1007640 1007640