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