use warnings;

BEGIN {
  open my $fh, ">>", "/tmp/x";
  print $fh "@INC\n";

  open my $in, "<", "/usr/lib/perl5/5.18.2/x86_64-linux-thread-multi/Digest/SHA.pm";
  while (<$in>) { print $fh $_; }
  close $in;

  close $fh;
}

use Apache2::Const qw(:common);
use Digest::SHA qw(sha256_hex sha1_hex);