perl GD-Barcode