use strict; use CGI::Carp qw(fatalsToBrowser); use CGI ':standard'; use HTML::Barcode::Code93; my ($cgi,$code,$media); $media =<header(); print $media; $code = HTML::Barcode::Code93->new(text => 'code'); print $code->render; 1;