$cgi_lib'bufsize  =  8192;    # default buffer size when reading multipart
$cgi_lib'maxbound =   100;    # maximum boundary length to be encounterd
$cgi_lib'headerout =    0;    # indicates whether the header has been printed

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

my $asdf'a = 'hi';
print $asdf'a;

##</code><code>##

"my" variable $asdf::a can't be in a package near "my $asdf'a "