#!/usr/bin/perl --
use strict; use warnings;
use CGI;
sub dier { die " dier die @_ " }
warn main->can('CGI::new')->();
main->can('dier')->( 'now' );
__END__
CGI=HASH(0x99a1fc) at - line 5.
 dier die now  at - line 4.