now uses tee -i instead of perl;

--- a/lib/scripts/ucat	Tue Feb 04 08:59:17 1997 +0100
+++ b/lib/scripts/ucat	Tue Feb 04 08:59:50 1997 +0100
@@ -3,15 +3,5 @@
 # $Id$
 #
 # ucat - uninterruptible cat.
-#
-# NOTE: If perl is unavailable we simply fall back on normal cat!
 
-
-PERL=$(type -path perl)
-
-if [ -z "$PERL" ]
-then
-  exec cat "$@"
-else
-  exec $PERL -e '$SIG{INT} = "IGNORE"; $| = 1; while (<ARGV>) {print;}' "$@"
-fi
+exec tee -i /dev/null "$@"