Hi, again ! Forgot to clean up the code ...
> open (MAIL, "| $mail $recipient") || &abort ("Can't open $mail: $!\n");
should read
open (MAIL, "| $mail $recipient") || die ("Can't open $mail: $!\n");
Cheers,
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]
