use CGI ();
my $q = CGI->new;

print "can cookie: ", UNIVERSAL::can($q, 'cookie') ? 'Yes' : 'No', $/;
eval { $q->cookie };
print "can cookie: ", UNIVERSAL::can($q, 'cookie') ? 'Yes' : 'No', $/;