GD::Barcode - Create barcode image with GD
=head1 SYNOPSIS
I<ex. CGI>
  use GD::Barcode::UPCE;
  binmode(STDOUT);

GD::Barcode::EAN13 - Create EAN13(JAN13) barcode image with GD
=head1 SYNOPSIS
I<ex. CGI>
  use GD::Barcode::EAN13;
  binmode(STDOUT);

GD::Barcode::Code39 - Create Code39 barcode image with GD 
=head1 SYNOPSIS
I<ex. CGI>
  use GD::Barcode::Code39;
  binmode(STDOUT);

GD::Barcode::EAN8 - Create EAN8(JAN8) barcode image with GD
=head1 SYNOPSIS
I<ex. CGI>
  use GD::Barcode::EAN8;
  binmode(STDOUT);

GD::Barcode::UPCE - Create UPC-E barcode image with GD
=head1 SYNOPSIS
I<ex. CGI>
  use GD::Barcode::UPCE;
  binmode(STDOUT);

package CIPP::CGI;
1;

use Apache::compat ();
use CGI ();
my $cgi = CGI->new;
print $cgi->header;

use Apache::compat ();
use CGI ();
my $cgi = CGI->new;
print $cgi->header;

use Apache2::compat ();
use CGI ();
my $cgi = CGI->new;
print $cgi->header;

#!/usr/bin/perl -w
# CGI script that simply displays the XML
use strict;
use CGI::XMLForm;

use strict;
no CGI;
package FMS::CGI;
sub new() {

package h;
use CGI;
1;

; package TestSess
; use CGI::Builder
  qw| CGI::Builder::Session
      CGI::Builder::Magic

; package TestSess
; use CGI::Builder
  qw| CGI::Builder::Session
      CGI::Builder::Magic

package ApachePlugin::CGI;
use strict;
use base 'CGI::Application';

#!/common/perl/5.6.1/bin/perl
use CGI;
my $cgi = CGI->new();
print $cgi->header;

#!/opt/common/perl/5.8.1/bin/perl
use CGI;
my $cgi = CGI->new();
print $cgi->header;

#!/usr/bin/perl -w
use lib qw(../lib);
use CGI::CMS;
use strict;
my $cgi = CGI::CMS->new();

package TestApp::Controller::Root;
use parent 'Catalyst::Controller::WrapCGI';
__PACKAGE__->config->{namespace} = '';
my $cgi = sub {

package CGI::Untaint::countrycode;
use warnings;
use strict;

package TestApp;
use strict;
use base ("CGI::Application::Plugin::HTDot", "CGI::Application");
1;

package CGI::Wiki::Plugin::Foo;
use base qw( CGI::Wiki::Plugin );
1;

#!/usr/bin/perl
use CGI;
$amail=CGI->new;
print $amail->header();

#!/usr/bin/perl
use CGI;
$amail=CGI->new;
print $amail->header();

#!/usr/bin/perl -T
use CGI;
$amail=CGI->new;
print $amail->header();