#!/usr/bin/perl 
 
use strict; 
use warnings; 
 
use Data::Dumper; 
 
# Make Data::Dumper pretty 
$Data::Dumper::Sortkeys = 1; 
$Data::Dumper::Indent   = 1; 
 
# Set maximum depth for Data::Dumper, zero means unlimited 
$Data::Dumper::Maxdepth = 0; 
 
use File::Find; 
 
for my $k ( sort keys %INC ){ 
  printf "%30s %s\n", $k, $INC{$k}; 
}

#!/usr/bin/perl 
 
use warnings; 
use strict; 
use Data::Dumper; 
 
my $file = 'my_script.pl'; 
 
open( my $script, '<', $file ) 
  or die "Cannot open $0"; 
 
print "Modules used in the program:\n\n"; 
while (<$script>) { 
    my ($module) = /^use\s(.*)\;/i; 
    print "$module\n" if ( $module ); 
} 
 
close( $script );