delete $INC{'CGI.pm'};
no warnings 'redefine';  # or 'redefined'? Gah, I hate that!
require CGI;
my $cgi = CGI->new;
print OUT $cgi->header;