package MyModule;
use strict;
use warnings;

my $Dump;
if (eval { require Data::Dump; 1}) {
    $Dump = sub { goto &Data::Dump::dd };
} else {
    require Data::Dumper;
    $Dump = sub { goto &Data::Dumper::Dumper };
}

print "this is %INC:\n";
print $Dump->(\%INC);

__END__

##</code><code>##

this is %INC:
{
  "Data/Dump.pm"         => "/usr/share/perl5/Data/Dump.pm",
  "Exporter.pm"          => "/usr/share/perl/5.26/Exporter.pm",
  "overload.pm"          => "/usr/share/perl/5.26/overload.pm",
  "overloading.pm"       => "/usr/share/perl/5.26/overloading.pm",
  "strict.pm"            => "/usr/share/perl/5.26/strict.pm",
  "subs.pm"              => "/usr/share/perl/5.26/subs.pm",
  "vars.pm"              => "/usr/share/perl/5.26/vars.pm",
  "warnings.pm"          => "/usr/share/perl/5.26/warnings.pm",
  "warnings/register.pm" => "/usr/share/perl/5.26/warnings/register.pm",
}