парсим атачи в письме. Или немного о MIME::Base64

[Skif]

В принципе по тому же примеру тоже делал:

next if $part->head->get(\'Content-Type\') =~ m/^text/i ; 

my $part_headline = $part->head->get(\'Content-disposition\'); 

next if !$part_headline; 

next if ( $part_headline !~ m/filename="(.*)"/ ); 

$part_headline = $1; 

my $io = $part->bodyhandle->open(\'r\'); 

open( TMP , ">>c:\\\\tmp.zip" ); 

while (my $line = $io->getline ) { 

print ( TMP $line); 

} 

close( TMP );

эффект тот же - файл битый. Хотя в темповой папке,в которую ложит все MIME::Parser находиться абсолютно нормальный зипованный файл.
Вот и не пойму, как быть?

[ondr]

perldoc -f binmode ?

[Skif]

Тормоз, кретин, балбес.... Стыдно...
СПАСИБО, оно самое.

[Skif]

Весь прикол, что если включить binmode, то можно обойтись одним MIME::Base64...
не устаю себе поражаться