#!/usr/bin/perl

use strict;
use warnings;
use GD::Barcode::Code39;

my $oGdBar = GD::Barcode->new( 
              'Code39', '*123-456789*' );
print "PTN:", $oGdBar->{text}, ':', 
              $oGdBar->barcode(), "\n";
open OUT, '>', '/tmp/Code39.png';
binmode OUT;
print OUT $oGdBar->plot->png;
close OUT;
undef $oGdBar;