[12016] in Perl-Users-Digest
Perl-Users Digest, Issue: 5616 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon May 10 07:07:22 1999
Date: Mon, 10 May 99 04:00:17 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 10 May 1999 Volume: 8 Number: 5616
Today's topics:
Re: Can a DNS lookup be performed from within perl ? (Ethan H. Poole)
cybercash help <stevenk@stevenkim.com>
Re: Embedding in Win32 GUI app? <c4jgurney@my-dejanews.com>
Re: FAQ 9.3: How do I remove HTML from a string? <ebohlman@netcom.com>
Re: Like on mIRC? <gellyfish@gellyfish.com>
Re: Making executables from .pl files? (Chris Costello)
Re: Making executables from .pl files? smnayeem@my-dejanews.com
Re: Making executables from .pl files? <carvdawg@patriot.net>
Msgbox question <maaskant@frg.eur.nl>
Re: Msgbox question <devans@radius-retail.kom>
Need a little looping help todd_b_smith@my-dejanews.com
Posting Source to the group (Re: Free Perl Web Database <gellyfish@gellyfish.com>
Re: Security issues wth Perl-Win32 <gellyfish@gellyfish.com>
Re: Sorting is too slow for finding top N keys... - UPD (Marko R. Riedel)
Re: Time of execution of perl script <fstafek@noise.cz>
Re: using $, (was Re: having problems) (Fuzzy Warm Moogles)
Re: Weird comparing-errors <devans@radius-retail.kom>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 06 May 1999 15:55:20 -0400
From: ehpoole@ingress.com (Ethan H. Poole)
Subject: Re: Can a DNS lookup be performed from within perl ?
Message-Id: <XbYIfp$l#GA.201@rejz.ij.net>
[Posted and Emailed] In article <7gsou2$pja$1@news.inet.tele.dk>,
johndoe@this.is.a.bogus.address.com says...
>
>This doesn't work for winnt, though, since gethostbyaddr isn's supported. Is
>there another way of getting the hostname of someone? (I know this might be
>off topic, but I've already asked in several other newgroups, without
>getting any answers....)
>
>Send replies to usenet@sitemakerz.dk and/or post them to the group...
Who told you gethostbyaddr() doesn't work on NT? If your perl doesn't
support gethostbyaddr() its high-time to update your installation.
Even Perl 5.001 supported gethostbyaddr() (sorry, I don't have any older
versions available on my system).
--
Ethan H. Poole | Website Design and Hosting,
| CGI Programming (Perl & C)..
========Personal=========== | ============================
* ehpoole @ ingress . com * | --Interact2Day, Inc.--
| http://www.interact2day.com/
=======FREE WEBSITE DESIGN PROMOTION UNTIL 5/31/99!=======
------------------------------
Date: Mon, 10 May 1999 08:44:29 GMT
From: "Steven Kim" <stevenk@stevenkim.com>
Subject: cybercash help
Message-Id: <N%wZ2.6111$ax4.355737@dfiatx1-snr1.gtei.net>
Hello,
I was wondering if I could get some help on scripting for cybercash. I have
a cybercash account that I need my script to start transactions but I can't
seem to find any sample script even at the Cybercash's site. The only ones
they have are for cybercash 2 and I need it for cybercash 3. Does anyone
know of a place where I can get a sample code? I'm trying to do very simple
cybercash charges but seemed to be stuck at this point...
Any help would be greatly appreciated.
Steven
stevenk@inreach.com
------------------------------
Date: Mon, 10 May 1999 08:32:12 GMT
From: Jeremy Gurney <c4jgurney@my-dejanews.com>
Subject: Re: Embedding in Win32 GUI app?
Message-Id: <7h65ic$mla$1@nnrp1.deja.com>
In article <3733CE52.4D75CD94@powernet.net>,
Ben & Leslie Allfree <benles@powernet.net> wrote:
> Has anyone successfully embedded Perl in an Win32 GUI app? Please
help,
> even if you only know where to find more information. I'm having
trouble
> finding out what the differences are between a console app and a GUI
> app. Thanks!
>
> Ben
>
> --
> Ben & Leslie Allfree
> B & L Digital Publishing
> www.bldigital.com
> benles@bldigital.com
The tk module for perl allows you to build gui apps with perl - download
it and install it with the perl package manager.
There's also comp.lang.perl.tk with a useful faq etc.
Jeremy Gurney
SAS Programmer | Proteus Molecular Design Ltd.
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: Mon, 10 May 1999 09:54:27 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: FAQ 9.3: How do I remove HTML from a string?
Message-Id: <ebohlmanFBIGur.E1@netcom.com>
Tom Christiansen <perlfaq-suggestions@perl.com> wrote:
: (This excerpt from perlfaq9 - Networking
: ($Revision: 1.25 $, $Date: 1999/04/14 03:46:19 $)
: part of the standard set of documentation included with every
: valid Perl distribution, like the one on your system.
: See also http://language.perl.com/newdocs/pod/perlfaq9.html
: if your negligent system adminstrator has been remiss in his duties.)
: How do I remove HTML from a string?
: The most correct way (albeit not the fastest) is to use HTML::Parse
: from CPAN (part of the HTML-Tree package on CPAN).
HTML::Parse is deprecated in favor of HTML::Parser.
------------------------------
Date: 10 May 1999 09:40:00 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Like on mIRC?
Message-Id: <37369b60@newsread3.dircon.co.uk>
Pierre-Luc <selectthree@gsig-net.qc.ca> wrote:
> Well...
>
> that's nice from you to have answered my post, but can you be more
> explicit, please?
>
> Simply give me the code that would print on a web page "you are
> modem83.gsig-net.qc.ca", as example.
>
Geez guy, have you got a problem with documentation or something ?
The following standalone code if given an IP address as an argument
will print the hostname.
It specifically avoids anything to do with web pages - you will have
to work that bit out yourself.
#!/usr/bin/perl -w
use Socket;
my $is = inet_aton($ARGV[0]);
my ($hostname,$aliases,@junk) = gethostbyaddr($is,AF_INET);
print $hostname,"\n";
BTW the bit I have called @junk is not actually junk but as you are
apparently not prepared to read the documentation you will never find
out what it is.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
------------------------------
Date: Mon, 10 May 1999 05:47:10 GMT
From: chris@holly.dyndns.org (Chris Costello)
Subject: Re: Making executables from .pl files?
Message-Id: <slrn7jcsp8.ms8.chris@holly.dyndns.org>
"Granny, what horrible line wrap you have!"
In article <7h5oro$dsk$1@nnrp1.deja.com>, smnayeem@my-dejanews.com wrote:
> What if u want to send someone a program that uses
> C++?
Binary or source?
> no problem
> What if u want to send someone a program that uses
> J++?
As we get less and less portable...
> no problem
> What if u want to send someone a program that uses
> C?
As I more rapidly lose interest...
> no problem
> What if u want to send someone a program that uses
> Pascal?
> no problem
> What if u want to send someone a program that uses
> Basic?
> no problem
What's your point? Given the actual perl 'system' (I can't
say interpreter -- someone might shoot me) is installed, I'd
imagine it's more portable than anything you've stated.
> err -- perl is another such language and why does
> it have to have restrictions that none of those
> languages have, they all can make exes ...
> sometimes its more convenient, say i want to give
> a small program to someplace and i can just carry
> it by a floppy disk whereas if i need perl
> installed i need to carry a whole bunch of disks
> and wait and install the perl before i can show my
> program... isnt it more convenient sometimes to
> use exes?
Short answer: No.
The most concise answer is the short answer, but I will
expand: If you plan on using this on one system only, sure (but
then why would you put it on a floppy?), but if you plan on using
it on multiple systems, perhaps even multiple architectures (x86
NT binaries won't run on DEC NT systems...), a more portable
language would be more like it.
Plus, of course, with perlcc, you can create your own binary
executable!
--
Chris Costello
Expert systems are built to embody the knowledge of human experts. - Kulawiec
------------------------------
Date: Mon, 10 May 1999 07:52:54 GMT
From: smnayeem@my-dejanews.com
Subject: Re: Making executables from .pl files?
Message-Id: <7h638m$l66$1@nnrp1.deja.com>
In article <slrn7jcsp8.ms8.chris@holly.dyndns.org>,
chris@holly.dyndns.org (Chris Costello) wrote:
> Plus, of course, with perlcc, you can create your own binary
> executable!
hmm where can i find this perlcc? i checked the activeperl
documentation, all it has is perl2exe but that never gave me the right
exes, well it gives me an exe but i cant ever run it if i use any
modules, it just says cant locate such and such modules and aborts.
smnayeem
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: Mon, 10 May 1999 05:26:47 +0100
From: Marquis de Carvdawg <carvdawg@patriot.net>
Subject: Re: Making executables from .pl files?
Message-Id: <37366007.EFC91639@patriot.net>
Check your path. If you are using ActivePerl, it's in your
bin directory...
smnayeem@my-dejanews.com wrote:
> In article <slrn7jcsp8.ms8.chris@holly.dyndns.org>,
> chris@holly.dyndns.org (Chris Costello) wrote:
> > Plus, of course, with perlcc, you can create your own binary
> > executable!
>
> hmm where can i find this perlcc? i checked the activeperl
> documentation, all it has is perl2exe but that never gave me the right
> exes, well it gives me an exe but i cant ever run it if i use any
> modules, it just says cant locate such and such modules and aborts.
>
> smnayeem
>
> --== Sent via Deja.com http://www.deja.com/ ==--
> ---Share what you know. Learn what you don't.---
------------------------------
Date: Mon, 10 May 1999 10:55:33 +0200
From: Robert Maaskant <maaskant@frg.eur.nl>
Subject: Msgbox question
Message-Id: <37369F05.4BD9A8C0@frg.eur.nl>
Hi all,
On my work I use Perl for Win32 for different purposes. One of these
purposes is to start a virusscanner once a month on (win95) client-PC's
(called from an NT-loginscript).
Before the scanner starts I want to inform the user that his/her local
hard disks will be scanned. I want to use a message box
(Win32::MsgBox(etc etc etc) ).
But some people don't understand (really!!!) that they must first press
the OK-button for the script to continue.
So, is there a way to let the MsgBox disappear after some time interval
and allow the script to continue? Or are there more clever ways to
inform the user about what is bound to happen?
Thanks in advance,
Robert
------------------------------
Date: Mon, 10 May 1999 10:16:19 +0100
From: "Dave Evans" <devans@radius-retail.kom>
Subject: Re: Msgbox question
Message-Id: <7h6b6p$2q911@news.gomontana.com>
Try including the words "Press return to continue" in the message perhaps?
:-)
Robert Maaskant wrote in message <37369F05.4BD9A8C0@frg.eur.nl>...
>...
>But some people don't understand (really!!!) that they must first press
>the OK-button for the script to continue.
>...
------------------------------
Date: Mon, 10 May 1999 06:39:10 GMT
From: todd_b_smith@my-dejanews.com
Subject: Need a little looping help
Message-Id: <7h5uue$hh8$1@nnrp1.deja.com>
Feel free to get obfuscated; I like it better that way.
I need to be able to 'eval' the top of a loop, write normal code in the
middle, and 'eval' the end. Example (doesn't work):
I'm copying from sight, so please forgive typos:
eval join '', map "for \$$_ (1..5) {", 'a'..'t';
$s = join '', map { eval "\$$_" } 'a'..'t';
$s =~ s/(\d)(\d)/($1,$2)/g;
$s =~ s/\)(?=.)/\),/g;
print $s;
eval '}'x20;
Thanks.
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: 10 May 1999 09:16:04 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Posting Source to the group (Re: Free Perl Web Database w/ full source code - comments encouraged - db_Perl_Database_100.zip (0/1))
Message-Id: <373695c4@newsread3.dircon.co.uk>
Steve MacLellan <maclell@col.ca> wrote:
> On Sun, 09 May 1999 23:06:10 GMT, jefflv@usol.com (Jeff Vannest)
> wrote:
>
>>On Sun, 09 May 1999 04:22:28 GMT, jefflv@usol.com (Jeff Vannest)
>>wrote:
>>>Here is a little hobby project I've been working for some time now....
>>
>>It occurs to me that this newsgroup was not the appropriate place to
>>post this message -
>
>>I have read several messages regarding how this group's name is
>>appropriate, however its topical latitude still is frequently debated.
>>I must agree with those who urge a more specific name for this group -
>>let the .misc cover the .misc.
>>
>
> IMHO this was the right place to post it. Others, here, are often
> quick to tell you your post doesn't belong here. As far as I am
> concerned the "misc" should include scripts. and anything and
> everything else that is miscellaneous Perl.
>
Fine,
but what *is* posted here should be in plain text - not zipped, not uuencoded
and not as an attachment. If the poster feels it is too large to post
without compression then they should post a URL to where the script might
be found and probably a summary of the documentation.
I think any opprobrium that the original poster might have copped would
have been entirely down to the fact that he posted a uuencoded, zipped
attachment. Whilst I am not party to his mental processes I would
suggest that he probably misinterpreted some complaint about this as
being a complaint about posting source at all.
For myself I would encourage the posting of code, it provides inspiration
for others if nothing else and can only be to the benefit of everyone.
Of course others might have a different view on the matter and it I think
it might be timely for some of those views to be aired.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
------------------------------
Date: 10 May 1999 10:20:28 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Security issues wth Perl-Win32
Message-Id: <3736a4dc@newsread3.dircon.co.uk>
Darren Bennett <bennettd@asdi.saic.com> wrote:
> Jonathan Stowe wrote in message <7h44q3$59k$1@gellyfish.btinternet.com>...
>>On Sat, 8 May 1999 09:00:30 -0700 Darren Bennett wrote:
>>> I'm working on scripts to do sysadmin
>>> logging/monitoring/reporting on my NT servers.. just how bad are the
>>> Security issues with this?? (and what can I do to tighten them up?)
>>>
>>
>>I sense some FUD at play here. There seems to be some implication that
>>using Perl opens up some yawning security hole - which of course is not
>>the case or rather no more than carrying out the same operations with
>>any other language.
>>
>
> FUD?? whatever.. I have read (many places including ACTIVE STATE and Linux
> Journal) that Perl opens up some BARN Door Exploits.. I just don't know them
> and it is hard to secure that which you don't know is open..
>
Yes. Fear Uncertainty and Doubt. Phrases like 'Barn Door Exploits' are
meaningless. If you have read this in an authoritative place then it
should be stated what these Security Bugs are - if it doesnt then it is
FUD.
NT itself is shot through with Security Bugs and more are reported every
week.
People are using Perl in places where I doubt that NT will ever go and I
very much doubt that it would be in that position if it was true that it
opened up 'BARN Door Exploits' (whatever that might mean).
Of course there might be stuff that I dont know about - so I go to
Altavista and do a search for "Perl CERT advisory" and lo-and-behold
there is one :
CERT* Advisory CA-97.17
Original issue date: May 29, 1997
Last revised: --
Topic: Vulnerability in suidperl (sperl)
But of course this only applies to pre 5.003 Perls and is also inapplicable
to NT.
More ?
CERT* Advisory CA-96.11
Original issue date: May 29, 1996
Last Revised: September 24, 1997
Topic: Interpreters in CGI bin Directories
Of course this doesnt only apply to Perl and of course you knew already
how it was a stupid idea to put an interpreter in your CGI-BIN directory
didnt you ?
No CERT advisories were issued last year that mention Perl at all, nor
have there been any thus far in 1999 - If you dont believe me take a gander
at http://www.cert.org/.
Perl itself is not inherently insecure - although of course like most
languages that grown-ups use it doesnt prevent you from performing
insecure operations. These insecure operations are the same whatever
language you might be using.
Of course I am not an authority on these matters and perhaps someone
from p5p will make a 'definitive statement'.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
------------------------------
Date: 10 May 1999 10:38:54 +0200
From: mriedel@neuearbeit.de (Marko R. Riedel)
Subject: Re: Sorting is too slow for finding top N keys... - UPDATE
Message-Id: <lzyaix8gkh.fsf@linux_sexi.neuearbeit.de>
Greetings.
Yesterday's (05/10/99) version corrupted the source array. The one
included with this message sorts in place and preserves the source
array.
Marko R. Riedel
#! /usr/bin/perl
#
sub qsel {
local ($aref, $min, $max, $lower, $upper) = @_;
local ($temp, $pivot, $i, $j);
return $aref if($lower>=$upper);
if($lower==$upper-1){
if($$aref[$lower]>$$aref[$upper]){
$temp=$$aref[$lower];
$$aref[$lower]=$$aref[$upper];
$$aref[$upper]=$temp;
}
return $aref;
}
$pivot=$$aref[$lower];
$i=$lower+1; $j=$upper;
while($i<=$j){
while($$aref[$i]<$pivot && $i<=$j){
$$aref[$i-1]=$$aref[$i];
$i++;
};
while($$aref[$j]>=$pivot && $i<=$j){ $j-- };
if($i<=$j-1){
$temp=$$aref[$i];
$$aref[$i]=$$aref[$j];
$$aref[$j]=$temp;
}
}
$$aref[$i-1]=$pivot;
&qsel($aref, $min, $max, $lower, $i-2)
if($i>$lower+1 && $min<$i);
&qsel($aref, $min, $max, $i, $upper)
if($i<$upper && $max>=$i);
return $aref;
}
sub makeperm {
local ($size)=@_;
local ($i);
local @perm=(-1) x $size;
local @source=(0..$size-1);
for($i=$size; $i>0; $i--){
$invs=int(rand($i));
$perm[$source[$invs]]=$i;
splice @source, $invs, 1;
}
return \@perm;
}
MAIN: {
local ($size, $min, $max)=@ARGV;
local ($perm);
$|=1;
print 'constructing permutation ... ';
$perm=&makeperm($size);
print "done.\n";
print "@$perm\n" if $size<=256;
&qsel($perm, $min, $max, 0, $size-1);
print "@$perm\n" if $size<=256;
print "@$perm[$min..$max]\n";
}
------------------------------
Date: Sun, 9 May 1999 14:04:59 +0200
From: "frantisek" <fstafek@noise.cz>
Subject: Re: Time of execution of perl script
Message-Id: <37357ace.0@news.cvut.cz>
time()
Deepak wrote in message <926193457.898.102@news.remarQ.com>...
>I have a perl script that searches a flat text file and returns the
results.
>How can I time from the open of the file until the summary,
>printing the # of seconds(probably need about 5 decimals places, because it
>does not take long) it took for the query.
>
>Deepak
>
>
------------------------------
Date: Mon, 10 May 1999 06:02:28 GMT
From: tgy@chocobo.org (Fuzzy Warm Moogles)
Subject: Re: using $, (was Re: having problems)
Message-Id: <37366df5.178955168@news.oz.net>
On Sat, 8 May 1999 06:35:41 -0700, lr@hpl.hp.com (Larry Rosler) wrote:
>In article <3733e998.314775@news.skynet.be> on Sat, 08 May 1999 07:38:44
>GMT, Bart Lateur <bart.lateur@skynet.be> says...
>> Larry Rosler wrote:
>>
>> >NUL is the PoB name for /dev/null. If you are using Unix, use
>> >'/dev/null' and there will be no file to write or remove.
>>
>> So you need OS dependant code.
>
>Yes, until someone writes File::Bitbucket. Most filenames are OS
>dependent.
package Dev::Null;
sub import {
my $class = shift;
@_ or return;
my $caller = caller;
tie *{"$caller\::$_"}, $class for @_;
}
sub TIEHANDLE { bless \my $null }
sub AUTOLOAD {}
1;
__END__
use Dev::Null qw/NUL/;
print NUL 'Just another Perl hacker,';
--
Fuzzy | tgy@chocobo.org | Will hack Perl for a moogle stuffy! =^.^=
------------------------------
Date: Mon, 10 May 1999 10:32:06 +0100
From: "Dave Evans" <devans@radius-retail.kom>
Subject: Re: Weird comparing-errors
Message-Id: <7h6c4e$2q8h1@news.gomontana.com>
[mailed+posted]
Number one: that's obviously not your actual script, I guess thats
copy-typed pseudocode. Providing us with your actual script is thoroughly
recommended.
Anyway your main problem, as far as not matching the "#include" lines is
concerned, is that you're using "==" on the lines instead of pattern
matching.
For example, in your test file line 1 is "#include <stdio.h>\n" (with the
newline on the end that is).
The string "#include <stdio.h>\n" is obviously not the same as "#include"
(it's got a load more characters on the end) so what you really mean is, it
'starts with something like "#include" '.
If you've never used pattern matching before read: perldoc perlre and
perldoc perlop. Pattern matching is used *everywhere* in Perl. Read and
understand, then you will understand the answer below:
Change: $currentline == "#include"
to: $currentline =~ /^#include\W/
Remco wrote in message <3735ad86.121831@news.telekabel.nl>...
>Hi people,
>
>I have something like the following file (/test):
>
>#include <stdio.h>
>...
>
>and I want to replace all #include's bij '//' in PERL.
>
>I do something like:
>
>
>#!/usr/bin/perl
>
>$input_file="/test";
>open (input_file);
>$array=<input_file>;
>close (input_file);
>foreach ($array_
>{
> $currentline=$array[$counter];
> if ($currentline == "#include")
> {
> print "//"
> }
> else
> {
> print $currentline;
> {
> $counter++;
>}
>
>The weird thing for me is that all $currentline's are printed, they
>just never seem to be =="#include", even if they're printed like that.
>What am I missing here??
>
>
>Thanks for your help.
>
>Remco.
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 5616
**************************************
