Stealer.pm: package Stealer; use base 'Exporter'; @EXPORT = qw/CGI/; sub CGI { return 'Stealer'; } sub new { print "Stolen!"; } script.pl: use CGI; use Stealer; my $q = CGI->new;