$email = Email::MIME->new (\$msg);
$email->walk_parts( sub {
    return if $_[0]->subparts;
    print $_[0]->filename;
                    }
    );

##</code><code>##

Unquoted '"' not allowed at ./em_try.pl line 21.
Missing semicolon before parameter '"&#1488;&#1497;&#1497;&#1491;&#1497; &#1512;&#1494;.png"' at ./em_try.pl line 21.