use strict;
use File::MimeInfo::Magic;
use File::Find 'find';


open(FILE,'>>','fileType.csv');

my $inputDirectory = 'F:/';

find({wanted => sub {\&scanFiles();},no_chdir => 1},$inputDirectory);


sub scanFiles
{
    my $mimeType = mimetype($File::Find::name);
    
    print FILE "$File::Find::name,$mimeType\n";
}

close(FILE);