package Noname1;

use strict;
use Warnings;

my @added;

BEGIN {
    my %Seen = %INC;
    require CGI;
    @added = grep {! exists $Seen{$_}} keys %INC;
    }

sub Added {
    return @added;
}

1;

##</code><code>##

use strict;
use Warnings;
use Noname1;
use CGI;

my @added = Noname1::Added ();

print "@added";

##</code><code>##

CGI/Util.pm CGI.pm