#! perl -slw no warnings; use lib 'whatever you are using'; use Storable; for ( sort keys %INC ) { printf "%20s => %s ", $_, $INC{ $_ }; s[/][::]g; s[.pm][]; print eval "\$$_\::VERSION"; }