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";
[download]

All in all it isn't too bad, I'd use it as is, myself =)

--
$you = new YOU;
honk() if $you->love(perl)