Update on this issue. Found Work-Around, or maybe I did something
wrong. But this solves my problem:

Extract the Filename with MIME::Parser

my $filename = $part->head->recommended_filename;
my $content;

open(FILE,">$filename);
        my $io = $part->open("r")) {
                while (defined($_ = $io->getline)) {
                        print FILE $_;
                }
                $io->close;
        }
close(FILE);

And then when it come to check that file:

if (utf8::is_utf8($filename)) {
        utf8::encode($filename);
}

my ($path,$found) = $av->scan_path("$filename");

Reply via email to