<div class="gmail_quote"><div>O formato deste msg não é binário? Se for precisa usar o binmode...</div><div>Pq vc não usa o arquivo.eml do outlook?  Este já está convertido para Base64</div><div><br></div><div>[]&#39;s</div>
<div>Eliane</div><div><br></div><div><br></div><div><br></div><div><br></div><div><br></div><div><br></div><div><br></div><div> </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<div class="gmail_quote"><div><div class="h5"><blockquote style="border-left:#ccc 1px solid;margin:0px 0px 0px 0.8ex;padding-left:1ex" class="gmail_quote"><div><div>&gt;&gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt;&gt; &gt;&gt; #!c:/Perl/perl.exe -w<br>
&gt;&gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt;&gt; &gt;&gt; use strict;<br>&gt;&gt; &gt;&gt; &gt;&gt; use warnings;<br>

&gt;&gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt;&gt; &gt;&gt; my $Lista = &#39;Ailton.msg&#39;;<br>&gt;&gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt;&gt; &gt;&gt; BKP($Lista);<br>&gt;&gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt;&gt; &gt;&gt; sub BKP{<br>


&gt;&gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt;&gt; &gt;&gt;  open(my $file, q{&lt;}, $_[0]);<br>&gt;&gt; &gt;&gt; &gt;&gt;  foreach my $arquivo ( &lt;$file&gt; ) {<br>&gt;&gt; &gt;&gt; &gt;&gt;     chomp($arquivo);<br>&gt;&gt; &gt;&gt; &gt;&gt;<br>


&gt;&gt; &gt;&gt; &gt;&gt;     print $arquivo;<br>&gt;&gt; &gt;&gt; &gt;&gt;<br>&gt;&gt; &gt;&gt; &gt;&gt;  }<br></div></div></blockquote></div></div></div></blockquote></div>