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

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