#!/usr/bin/perl

use strict;
use CGI;
use GD::Barcode::Code39;

#binmode(STDOUT);

my $cgi = CGI->new;
my $input = $cgi->Vars();
my $bc = uc($input->{'bc'});#'*CO39 -.$/+%*';

print "Content-Type: image/png\n\n";
print GD::Barcode::Code39->new("*$bc*")->plot(NoText => 1,Height => 15)->png;

exit 0;