Hallo All,

I am new in perl and will be grarefull for any help.
my perl script is as follows:

#!/usr/bin/perl -w


use lib "/home/shenvi/share/man/man3";


use IO;
use Mail::Internet;
use MIME::Tool;
use Mail::MboxParser::Mail;
use Mail::MboxParser;






#USE OF Mail::MboxParser

my $mb = Mail::MboxParser->new("(\*STDIN)", decode => 'HEADER');

for my $msg ($mb->get_message) {

print $msg->header->{FROM}, "\n";
$msg->store_all_attachment('/home/shenvi/perl/tmp');

}


when i try to run this scrpit I keep on getting this error:
Error: The filename you passed to open() does not refer to an existing file
at Teststrip.PL line 31

in the above case line 31 is
my $mb = Mail::MboxParser->new("(\*STDIN)", decode => 'HEADER');



thanks
nandita
Nandita Shenvi
Appartment Nr. 707
Westhoffstr. 15
44791 Bochum
Germany
0234/5844456



_________________________________________________________________
The new MSN 8: advanced junk mail protection and 2 months FREE* http://join.msn.com/?page=features/junkmail


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to