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) - -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]