Modify as needed.

The first modification needed will be to fix the typo in the while line ;-) I have had this fixed in CVS for a while but haven't released it to CPAN yet.

Bad maintainer bad bad

/J\