Ah, I'd had forgotten that little gem existed. I've used
it before. This quote from the page you link says it all:
(Rule of thumb--every time Microsoft use the word "smart,"
be on the lookout for something dumb).
The code needs serious work, OTOH. It is not only
perl4ish but also full of goofiness like this:
# Eliminate idiot MS-DOS carriage returns from line terminator
$s =~ s/\s+$//;
$s .= "\n";
All in all it isn't too bad, I'd use it as is, myself =)
$you = new YOU;
honk() if $you->love(perl)