#!/usr/bin/perl

use strict;
use warnings;

#  **
#  * It is what it is, you can do with it as you please. [with respect, leave the credits]
#  *
#  * Just don't blame me if it teaches your computer to smoke!
#  *
#  *  -Enjoy
#  *  fh :)_~
#  **

use File::Find;

my $Directory = 'C:/Tmp';
my @flist;


sub cbFileFind
{
  print $File::Find::name, "\n";
}

find(\&cbFileFind, $Directory);