Poor title excuse: I'm completely flabbergasted by this ...

Such a simple thing ... ??

#!/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);
[download]

What's up here??

C:\Documents and Settings\fh\My Documents\Scripts\Perl\Audio\CleanFile
+s>example.pl
C:/Tmp
C:/Tmp/M÷tley Crⁿe
C:/Tmp/M÷tley Crⁿe/Dr. Feelgood (Bonus Track Version)
C:/Tmp/M÷tley Crⁿe/Dr. Feelgood (Bonus Track Version)/07 - Same 
+Ol' Situation (S.O.S).mp3
C:/Tmp/M÷tley Crⁿe/Saints of Los Angeles
C:/Tmp/M÷tley Crⁿe/Saints of Los Angeles/05 - Saints of Los Ange
+les (Gang Vocal).mp3
[download]

C:\Documents and Settings\fh\My Documents\Scripts\Perl\Audio\CleanFile
+s>dir /s /b C:\Tmp
C:\Tmp\Mötley Crüe
C:\Tmp\Mötley Crüe\Dr. Feelgood (Bonus Track Version)
C:\Tmp\Mötley Crüe\Saints of Los Angeles
C:\Tmp\Mötley Crüe\Dr. Feelgood (Bonus Track Version)\07 - Same Ol' Si
+tuation (S.O.S).mp3
C:\Tmp\Mötley Crüe\Saints of Los Angeles\05 - Saints of Los Angeles (G
+ang Vocal).mp3

C:\Documents and Settings\fh\My Documents\Scripts\Perl\Audio\CleanFile
+s>
[download]

-Enjoy
fh : )_~