make barcode

nw7_barcode.pl

#!/usr/bin/perl
use strict;
use warnings;
use GD::Barcode::NW7;
use Math::CheckDigits;

my $bcd = qq{123432456};

my $cd = Math::CheckDigits->new(
    modulus => '10',
    weight  => [3,1],
);

$bcd = $cd->complete($bcd);
my $gd_barcode = GD::Barcode::NW7->new('A'.$bcd.'A');


open my $fh,'>','barcode.png';
binmode $fh;
print $fh $gd_barcode->plot()->png;
close $fh;