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;