diff --git a/AIX/README b/AIX/README
index d1c395c..0a81183 100644
--- a/AIX/README
+++ b/AIX/README
@@ -48,11 +48,12 @@ Available from dep-aix-2.2.tar.gz.
 15. fping-2.2b1-1
 16. openslp-1.2.1
 17. perl-Crypt-SSLeay-0.57-1
+18. perl-Net-Telnet-3.03-1.2
 
 Optional
 Available from xcat-mysql-2.2.tar.gz.
-18. perl-DBD-mysql-4.007-1
-19. xcat-mysql-5.0-1 (mysql-5.0.67)
+19. perl-DBD-mysql-4.007-1
+20. xcat-mysql-5.0-1 (mysql-5.0.67)
 
 When you are ready to install the RPM packages contained in the 
 dep-aix-2.2.tar.gz tar file you can run the "instoss" script, 
diff --git a/AIX/perl-Net-Telnet/Build-notes b/AIX/perl-Net-Telnet/Build-notes
new file mode 100644
index 0000000..862d1f0
--- /dev/null
+++ b/AIX/perl-Net-Telnet/Build-notes
@@ -0,0 +1,11 @@
+Build Notes
+
+
+1. Download Net-Telnet-3.03.tar.gz from CPAN.
+2. Copy Net-Telnet-3.03.tar.gz /opt/freeware/src/packages/SOURCES/ directory
+3. Copy Net-Telnet.spec /opt/freeware/src/packages/SPECS/
+4. cd to  /opt/freeware/src/packages/SPECS
+5. Run "rpm -bb Net-Telnet.spec", which creates:
+  /opt/freeware/src/packages/RPMS/ppc/perl-Net-Telnet-3.03-1.2.aix6.1.ppc.rpm
+
+
diff --git a/AIX/perl-Net-Telnet/Net-Telnet.spec b/AIX/perl-Net-Telnet/Net-Telnet.spec
new file mode 100644
index 0000000..48296c2
--- /dev/null
+++ b/AIX/perl-Net-Telnet/Net-Telnet.spec
@@ -0,0 +1,115 @@
+#
+#   - Net::Telnet -
+#   This spec file was automatically generated by cpan2rpm [ver: 2.028]
+#   The following arguments were used:
+#       --author norm .
+#   For more information on cpan2rpm please visit: http://perl.arix.com/
+#
+
+%define pkgname Net-Telnet
+%define filelist %{pkgname}-%{version}-filelist
+%define NVR %{pkgname}-%{version}-%{release}
+%define maketest 1
+
+name:      perl-Net-Telnet
+summary:   Interface to telnet
+version:   3.03
+release:   1.2
+vendor:    norm
+license:   Artistic
+group:     Applications/CPAN
+url:       http://www.cpan.org
+buildroot: %{_tmppath}/%{name}-%{version}-%(id -u -n)
+buildarch: ppc
+prefix:    %(echo %{_prefix})
+source:    Net-Telnet-3.03.tar.gz
+
+%description
+Net::Telnet allows you to make client connections to a TCP port
+and do network I/O, especially to a port using the TELNET
+protocol.  Simple I/O methods such as print, get, and getline are
+provided.  More sophisticated interactive features are provided
+because connecting to a TELNET port ultimately means communicating
+with a program designed for human interaction.  These interactive
+features include the ability to specify a timeout and to wait for
+patterns to appear in the input stream, such as the prompt from a
+shell.
+
+
+%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
+
+# 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 "";
+    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)
+