use warnings;
use strict;
use CGI;

my $c = CGI->new;
print $c->UNIVERSAL::can('header'); # undefined