use Cwd qw( realpath );
print(realpath($INC{'Digest/SHA/PurePerl.pm'}), "\n");