Perl implementation

Hey Shawn...a Perl implementation for this.

Thanks,
Dave