diff --git a/AIX/perl-Digest-SHA/7.1/Build-notes b/AIX/perl-Digest-SHA/7.1/Build-notes
new file mode 100644
index 0000000..d3f7aeb
--- /dev/null
+++ b/AIX/perl-Digest-SHA/7.1/Build-notes
@@ -0,0 +1,12 @@
+Build Notes
+
+Need cc_r compiler installed on AIX build system.
+
+Use the Digest-SHA.spec  in this directory.
+( it was created by running a modified cpan2rpm to support AIX)
+Get  Digest-SHA-5.48.tar.gz from CPAN
+cp Digest-SHA-5.48.tar.gz /opt/freeware/src/packages/SOURCES
+cp Digest-SHA.spec /opt/freeware/src/packages/SPECS
+
+Run "rpm -bb Digest-SHA.spec".
+ - which creates: /opt/freeware/src/packages/RPMS/ppc/perl-Digest-SHA-5.48-3.aix7.1.ppc.rpm
diff --git a/AIX/perl-Digest-SHA/7.1/Digest-SHA.spec b/AIX/perl-Digest-SHA/7.1/Digest-SHA.spec
new file mode 100644
index 0000000..772b270
--- /dev/null
+++ b/AIX/perl-Digest-SHA/7.1/Digest-SHA.spec
@@ -0,0 +1,189 @@
+#
+#   - Digest::SHA -
+#   This spec file was automatically generated by cpan2rpm [ver: 2.028]
+#   The following arguments were used:
+#       Digest-SHA-5.48.tar.gz -U --tempdir=/tmp/test
+#   For more information on cpan2rpm please visit: http://perl.arix.com/
+#
+
+%define pkgname Digest-SHA
+%define filelist %{pkgname}-%{version}-filelist
+%define NVR %{pkgname}-%{version}-%{release}
+%define maketest 1
+
+name:      perl-Digest-SHA
+summary:   Digest-SHA - Perl extension for SHA-1/224/256/384/512
+version:   5.48
+release:   3 
+vendor:    Mark Shelor <mshelor@cpan.org>
+packager:  Arix International <cpan2rpm@arix.com>
+license:   Artistic
+group:     Applications/CPAN
+url:       http://www.cpan.org
+buildroot: %{_tmppath}/%{name}-%{version}-%(id -u -n)
+buildarch: ppc
+prefix:    %(echo %{_prefix})
+source:    Digest-SHA-5.48.tar.gz
+
+%description
+Digest::SHA is written in C for speed.  If your platform lacks a
+C compiler, you can install the functionally equivalent (but much
+slower) Digest::SHA::PurePerl module.
+
+The programming interface is easy to use: it's the same one found
+in CPAN's Digest module.  So, if your applications currently
+use Digest::MD5 and you'd prefer the stronger security of SHA,
+it's a simple matter to convert them.
+
+The interface provides two ways to calculate digests:  all-at-once,
+or in stages.  To illustrate, the following short program computes
+the SHA-256 digest of "hello world" using each approach:
+
+	use Digest::SHA qw(sha256_hex);
+
+	$data = "hello world";
+	@frags = split(//, $data);
+
+	# all-at-once (Functional style)
+	$digest1 = sha256_hex($data);
+
+	# in-stages (OOP style)
+	$state = Digest::SHA->new(256);
+	for (@frags) { $state->add($_) }
+	$digest2 = $state->hexdigest;
+
+	print $digest1 eq $digest2 ?
+		"whew!\n" : "oops!\n";
+
+To calculate the digest of an n-bit message where *n* is not a
+multiple of 8, use the *add_bits()* method.  For example, consider
+the 446-bit message consisting of the bit-string "110" repeated
+148 times, followed by "11".  Here's how to display its SHA-1
+digest:
+
+	use Digest::SHA;
+	$bits = "110" x 148 . "11";
+	$sha = Digest::SHA->new(1)->add_bits($bits);
+	print $sha->hexdigest, "\n";
+
+Note that for larger bit-strings, it's more efficient to use the
+two-argument version *add_bits($data, $nbits)*, where *$data* is
+in the customary packed binary format used for Perl strings.
+
+The module also lets you save intermediate SHA states to disk, or
+display them on standard output.  The *dump()* method generates
+portable, human-readable text describing the current state of
+computation.  You can subsequently retrieve the file with *load()*
+to resume where the calculation left off.
+
+To see what a state description looks like, just run the following:
+
+	use Digest::SHA;
+	Digest::SHA->new->add("Shaw" x 1962)->dump;
+
+As an added convenience, the Digest::SHA module offers routines to
+calculate keyed hashes using the HMAC-SHA-1/224/256/384/512
+algorithms.  These services exist in functional form only, and
+mimic the style and behavior of the *sha()*, *sha_hex()*, and
+*sha_base64()* functions.
+
+	# Test vector from draft-ietf-ipsec-ciph-sha-256-01.txt
+
+	use Digest::SHA qw(hmac_sha256_hex);
+	print hmac_sha256_hex("Hi There", chr(0x0b) x 32), "\n";
+
+#
+# This package was generated automatically with the cpan2rpm
+# utility.  To get this software or for more information
+# please visit: http://perl.arix.com/
+#
+
+%prep
+%setup -q -n %{pkgname}-%{version} 
+chmod -R u+w %{_builddir}/%{pkgname}-%{version}
+
+%build
+grep -rsl '^#!.*perl' . |
+#   grep -v '.bak$' |xargs --no-run-if-empty \
+grep -v '.bak$' |xargs \
+%__perl -MExtUtils::MakeMaker -e 'MY->fixin(@ARGV)'
+CFLAGS="$RPM_OPT_FLAGS"
+%{__perl} Makefile.PL `%{__perl} -MExtUtils::MakeMaker -e ' print qq|PREFIX=%{buildroot}%{_prefix}| if \$ExtUtils::MakeMaker::VERSION =~ /5\.9[1-6]|6\.0[0-5]/ '`
+%{__make} 
+%if %maketest
+%{__make} test
+%endif
+
+%install
+[ "%{buildroot}" != "/" ] && rm -rf %{buildroot}
+
+%{makeinstall} `%{__perl} -MExtUtils::MakeMaker -e ' print \$ExtUtils::MakeMaker::VERSION <= 6.05 ? qq|PREFIX=%{buildroot}%{_prefix}| : qq|DESTDIR=%{buildroot}| '`
+
+cmd=/usr/share/spec-helper/compress_files
+[ -x $cmd ] || cmd=/usr/lib/rpm/brp-compress
+[ -x $cmd ] && $cmd
+
+# SuSE Linux
+#        if [ -e /etc/SuSE-release -o -e /etc/UnitedLinux-release ]
+#        then
+#            %{__mkdir_p} %{buildroot}/var/adm/perl-modules
+#            %{__cat} `find %{buildroot} -name "perllocal.pod"`  \
+#                | %{__sed} -e s+%{buildroot}++g                 \
+#                > %{buildroot}/var/adm/perl-modules/%{name}
+#        fi
+
+# remove special files
+find %{buildroot} -name "perllocal.pod" \
+    -o -name ".packlist"                \
+    -o -name "*.bs"                     \
+    |xargs -i rm -f {}
+
+# no empty directories
+#        find %{buildroot}%{_prefix}             \
+#            -type d -depth                      \
+#            -exec rmdir {} \; 2>/dev/null
+
+%{__perl} -MFile::Find -le '
+    find({ wanted => \&wanted, no_chdir => 1}, "%{buildroot}");
+    print "%doc  src Changes examples README";
+    for my $x (sort @dirs, @files) {
+        push @ret, $x unless indirs($x);
+        }
+    print join "\n", sort @ret;
+
+    sub wanted {
+        return if /auto$/;
+
+        local $_ = $File::Find::name;
+        my $f = $_; s|^\Q%{buildroot}\E||;
+        return unless length;
+        return $files[@files] = $_ if -f $f;
+
+        $d = $_;
+        /\Q$d\E/ && return for reverse sort @INC;
+        $d =~ /\Q$_\E/ && return
+            for qw|/etc %_prefix/man %_prefix/bin %_prefix/share|;
+
+        $dirs[@dirs] = $_;
+        }
+
+    sub indirs {
+        my $x = shift;
+        $x =~ /^\Q$_\E\// && $x ne $_ && return 1 for @dirs;
+        }
+    ' > %filelist
+
+[ -z %filelist ] && {
+    echo "ERROR: empty %files listing"
+    exit -1
+    }
+
+%clean
+[ "%{buildroot}" != "/" ] && rm -rf %{buildroot}
+
+%files -f %filelist
+%defattr(-,root,root)
+
+%changelog
+* Mon Jun 21 2010 root@c114m4h1p04.ppd.pok.ibm.com
+- Initial build.