use strict;
use warnings;
use GD::Barcode; 
 
my $barcode = GD::Barcode->new('EAN13', '123456789012');
my $gd = $barcode->plot(Height => 100);

open (IMG, ">", "barcode.gif") || die "Oops: $!\n";
binmode IMG;
print IMG $gd->gif;
close (IMG);

print $barcode->barcode(), "\n";
print $barcode->{text}, "\n";