diff --git a/perl/perl-Term-UI/README b/perl/perl-Term-UI/README
new file mode 100644
index 0000000000..3de2eb0fa1
--- /dev/null
+++ b/perl/perl-Term-UI/README
@@ -0,0 +1,5 @@
+Term::UI is a transparent way of eliminating the overhead of having to
+format a question and then validate the reply, informing the user if
+the answer was not proper and re-issuing the question.  Simply give it
+the question you want to ask, optionally with choices the user can
+pick from and a default and Term::UI will do what you mean.
diff --git a/perl/perl-Term-UI/perl-Term-UI.SlackBuild b/perl/perl-Term-UI/perl-Term-UI.SlackBuild
new file mode 100644
index 0000000000..5fba7f9f71
--- /dev/null
+++ b/perl/perl-Term-UI/perl-Term-UI.SlackBuild
@@ -0,0 +1,93 @@
+#!/bin/sh
+
+# Slackware build script for perl-Term-UI
+
+# Copyright 2013 Andreas Voegele <andreas@andreasvoegele.com>
+#
+# Permission to use, copy, modify, and distribute this software for any
+# purpose with or without fee is hereby granted, provided that the above
+# copyright notice and this permission notice appear in all copies.
+#
+# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+# ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+PRGNAM=perl-Term-UI
+VERSION=${VERSION:-0.38}
+BUILD=${BUILD:-1}
+TAG=${TAG:-_SBo}
+
+SRCNAM="$(printf $PRGNAM | cut -d- -f2-)"
+
+if [ -z "$ARCH" ]; then
+  case "$( uname -m )" in
+    i?86) ARCH=i486 ;;
+    arm*) ARCH=arm ;;
+       *) ARCH=$( uname -m ) ;;
+  esac
+fi
+
+CWD=$(pwd)
+TMP=${TMP:-/tmp/SBo}
+PKG=$TMP/package-$PRGNAM
+OUTPUT=${OUTPUT:-/tmp}
+
+if [ "$ARCH" = "i486" ]; then
+  SLKCFLAGS="-O2 -march=i486 -mtune=i686"
+  LIBDIRSUFFIX=""
+elif [ "$ARCH" = "i686" ]; then
+  SLKCFLAGS="-O2 -march=i686 -mtune=i686"
+  LIBDIRSUFFIX=""
+elif [ "$ARCH" = "x86_64" ]; then
+  SLKCFLAGS="-O2 -fPIC"
+  LIBDIRSUFFIX="64"
+else
+  SLKCFLAGS="-O2"
+  LIBDIRSUFFIX=""
+fi
+
+set -e
+
+rm -rf $PKG
+mkdir -p $TMP $PKG $OUTPUT
+cd $TMP
+rm -rf $SRCNAM-$VERSION
+tar xvf $CWD/$SRCNAM-$VERSION.tar.gz
+cd $SRCNAM-$VERSION
+chown -R root:root .
+find -L . \
+ \( -perm 777 -o -perm 775 -o -perm 750 -o -perm 711 -o -perm 555 \
+  -o -perm 511 \) -exec chmod 755 {} \; -o \
+ \( -perm 666 -o -perm 664 -o -perm 640 -o -perm 600 -o -perm 444 \
+ -o -perm 440 -o -perm 400 \) -exec chmod 644 {} \;
+
+perl Makefile.PL \
+  PREFIX=/usr \
+  INSTALLDIRS=vendor \
+  INSTALLVENDORMAN3DIR=/usr/man/man3
+make
+make test
+make install DESTDIR=$PKG
+
+find $PKG/usr/man -type f -exec gzip -9 {} \;
+for i in $( find $PKG/usr/man -type l ) ; do ln -s $( readlink $i ).gz $i.gz ; rm $i ; done
+
+find $PKG -name perllocal.pod -o -name ".packlist" -o -name "*.bs" | xargs rm -f || true
+
+find $PKG -depth -type d -empty -delete || true
+
+mkdir -p $PKG/usr/doc/$PRGNAM-$VERSION
+cp -a \
+  CHANGES README \
+  $PKG/usr/doc/$PRGNAM-$VERSION
+cat $CWD/$PRGNAM.SlackBuild > $PKG/usr/doc/$PRGNAM-$VERSION/$PRGNAM.SlackBuild
+
+mkdir -p $PKG/install
+cat $CWD/slack-desc > $PKG/install/slack-desc
+
+cd $PKG
+/sbin/makepkg -l y -c n $OUTPUT/$PRGNAM-$VERSION-$ARCH-$BUILD$TAG.${PKGTYPE:-tgz}
diff --git a/perl/perl-Term-UI/perl-Term-UI.info b/perl/perl-Term-UI/perl-Term-UI.info
new file mode 100644
index 0000000000..5e0b427659
--- /dev/null
+++ b/perl/perl-Term-UI/perl-Term-UI.info
@@ -0,0 +1,10 @@
+PRGNAM="perl-Term-UI"
+VERSION="0.38"
+HOMEPAGE="https://metacpan.org/release/Term-UI"
+DOWNLOAD="http://cpan.metacpan.org/authors/id/B/BI/BINGOS/Term-UI-0.38.tar.gz"
+MD5SUM="8f8cd5813a4fa0d387e281ca5ccaeec3"
+DOWNLOAD_x86_64=""
+MD5SUM_x86_64=""
+REQUIRES="perl-Log-Message-Simple"
+MAINTAINER="Andreas Voegele"
+EMAIL="andreas@andreasvoegele.com"
diff --git a/perl/perl-Term-UI/slack-desc b/perl/perl-Term-UI/slack-desc
new file mode 100644
index 0000000000..5c988b6466
--- /dev/null
+++ b/perl/perl-Term-UI/slack-desc
@@ -0,0 +1,19 @@
+# HOW TO EDIT THIS FILE:
+# The "handy ruler" below makes it easier to edit a package description.
+# Line up the first '|' above the ':' following the base package name, and
+# the '|' on the right side marks the last column you can put a character in.
+# You must make exactly 11 lines for the formatting to be correct.  It's also
+# customary to leave one space after the ':' except on otherwise blank lines.
+
+            |-----handy-ruler------------------------------------------------------|
+perl-Term-UI: perl-Term-UI (User interfaces via Term::ReadLine made easy)
+perl-Term-UI:
+perl-Term-UI: Term::UI is a transparent way of eliminating the overhead of having
+perl-Term-UI: to format a question and then validate the reply, informing the user
+perl-Term-UI: if the answer was not proper and re-issuing the question.
+perl-Term-UI: Simply give it the question you want to ask, optionally with choices
+perl-Term-UI: users can pick from and a default and Term::UI will do what you mean
+perl-Term-UI:
+perl-Term-UI: For more info, visit: https://metacpan.org/release/Term-UI
+perl-Term-UI:
+perl-Term-UI: