#!/usr/bin/perl

use strict;
use warnings;
use GD::Barcode::Code93;

my $oGdBar;
$oGdBar = GD::Barcode->new('Code93', 'text');
binmode(STDOUT);
print "Content-Type: image/png\n\n";
open OUT, '>', 'Code93.png';
print OUT $oGdBar->plot->png;
close OUT;
undef $oGdBar;