use strict;
#use gd;
print "\nRunning Barcode... \n\n";

my $text = "333";

use Barcode::Code128 'FNC1';
my $object = new Barcode::Code128;
$object->text(FNC1.'00000123455555555558');

$object->png($text);

open(PNG, ">h:/perl/code128.png") or die "Can't write code128.png: $!\n";
binmode(PNG);
print PNG $object->png("CODE 128");
close(PNG);