##
$ perl -le " qr{\P{Print}}; print for %INC; "
##
##
preload_unicore ();
print for keys %INC;
sub preload_unicore {
use File::Find::Rule;
use Config();
my $privlib = $Config::Config{installprivlib}.'/';
my @files = File::Find::Rule->file->name(qr/\.pl$/)->in( $privlib.'unicore/' );
tr{\\}{/} for $privlib, @files;
s{^\Q$privlib\E}{} for @files;
eval { require "$_"} for @files;
}