END {
  foreach my $file (sort keys %INC) {
    my $module  = $file ;
    my $located = $INC{$file} ;
    $module =~ s|\.pm$|| ;
    $module =~ s|[/\\]|::|g ;
    my $version ;
    { no strict 'refs' ; $version = ${$module.'::VERSION'} || '??' ; } ;
    print STDERR "$module v$version $located\n" ;
  } ;
} ;