use strict;
use warnings;

use Cwd qw( abs_path );
use Module::Metadata;

printf "Perl Version: %s\n", $];

my $i = 0;
for my $inc ( @INC ) {
  $i++;
  if ( ref $inc ) { 
    printf "-%3d REF: %s\n", $i, $inc;
    next;
  }
  my $path = "$inc/Hash/Util.pm";
  my $found = -e $path;
  my $apath = abs_path( $path );
  $apath ||= $path;
  my $version;
  if ( $found ) { 
    my $v = Module::Metadata->new_from_file( $path );
    $version = $v->version if $v;
  }
  printf "-%3d %3s: %s\n", $i, ( $found ? 'YES': 'NO' ), $path;
  if ( $found ) { 
    my $v = Module::Metadata->new_from_file( $path );
    $version = $v->version if $v;
    printf "%8s => version %s\n",'', ( defined $version ? $version : 'undef' );
  }

}