perl -e 'do $ARGV[0]; print "$_\n" for values %INC' test.pl