Hi !
> in the above case line 31 is
> my $mb = Mail::MboxParser->new("(\*STDIN)", decode => 'HEADER');
my $mb = Mail::MboxParser->new("\*STDIN", decode => 'HEADER');
should work fine (untested).
HTH,
Jan
--
cat /dev/world | perl -e "while (<>) {(/(^.*? \?) 42 \!/) && (print $1)}"
errors->(c)
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 = Mai
