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");

