Как программно нарисовать штрих-код?

php-image-barcode - Barcode generation
libpdf-reuse-barcode-perl - Create barcodes for PDF documents with PDF::Reuse
libgd-barcode-perl - Library to create barcode images (GD::Barcode)
libbarcode-code128-perl - Perl library to generate CODE 128 bar codes
kbarcode - barcode and label printing application for KDE

use GD::Barcode;

$text = "0123456789012";
$filename = "output.PNG";

my $oGdBar;
$oGdBar = GD::Barcode->new("EAN13", $text);
print "PTN:", $oGdBar->{text}, ":" ,$oGdBar->barcode, "\n";
open(OUT, ">$filename");
binmode OUT; # for Windows
print OUT $oGdBar->plot->png;
close OUT;
undef $oGdBar;