<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>[]'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>>> >> >><br>>> >> >> #!c:/Perl/perl.exe -w<br>
>> >> >><br>>> >> >> use strict;<br>>> >> >> use warnings;<br>
>> >> >><br>>> >> >> my $Lista = 'Ailton.msg';<br>>> >> >><br>>> >> >> BKP($Lista);<br>>> >> >><br>>> >> >> sub BKP{<br>
>> >> >><br>>> >> >> open(my $file, q{<}, $_[0]);<br>>> >> >> foreach my $arquivo ( <$file> ) {<br>>> >> >> chomp($arquivo);<br>>> >> >><br>
>> >> >> print $arquivo;<br>>> >> >><br>>> >> >> }<br></div></div></blockquote></div></div></div></blockquote></div>