ok, byla pomylka z STDIN :(
[pluto]-[~/tmp] # cat ./test.pl
#!/usr/bin/perl
use MIME::Words qw(:all);
print ($tmp = decode_mimewords(<STDIN>));
[pluto]-[~/tmp] # egrep '^From' test.eml
From: =?iso-8859-2?Q?Ma=B3gorzata?= <[EMAIL PROTECTED]>
[pluto]-[~/tmp] # egrep '^From' test.eml |./test.pl
From: Małgorzata <[EMAIL PROTECTED]>
--
The only thing necessary for the triumph of evil
is for good men to do nothing.
- Edmund Burke
_________________________________________
http://pld-linux.org/ = faq, howto, newsy
dostales tutaj odpowiedz na swoje pytanie?
podziel sie z innymi i dopisz do FAQ!
http://pld-linux.org/FAQ/
