$ echo 13 > lucky.pl
$ perl -l
print do 'lucky.pl';
if (1 == require 'lucky.pl') {
    print "already loaded.";
    delete $INC{"lucky.pl"};
}
print require 'lucky.pl';
print do 'lucky.pl';
__END__
13
already loaded.
13
13