CODE 39 BARCODE PERL SUB TO DRAW PCL BOXES

I need a nicely coded perl subroutine that outputs a code 39 barcode in HP PCL escape sequences (black rectangles). Input to the subroutine would be the string to be barcoded (example *12345678-1*), the height of the barcode in inches (example 0.500), and the CPI value (example 4.690). The PCL escape sequence should be position independent so that it will print relative to the current "cursor" position. ## Deliverables 1) Complete and fully-functional working program(s) in source code form of all work done. 2) All deliverables will be considered "work made for hire" under U.S. Copyright law. Buyer will receive exclusive and complete copyrights to all work purchased. (No GPL, GNU, 3rd party components, etc. unless all copyright ramifications are explained AND AGREED TO by the buyer on the site per the coder's Seller Legal Agreement). ## Platform unix, linux, any system with perl