The finding part:

use File::Find;

find (\&wanted, '/your/directory');

sub wanted {
  print $File::Find::name . "\n" if ( /^\./ && -f $_ );
}
[download]