#!/usr/bin/perl -l -w
use strict;
use CGI qw(:all);

print for keys %INC;
my $c = cookie('bob');
print "--------";
print for keys %INC;

##</code><code>##

$ ./tst | grep "^[C-]"
Carp.pm
CGI/Util.pm
CGI.pm
--------
Carp.pm
CGI/Util.pm
CGI/Cookie.pm
CGI.pm