#!/bin/ksh -p

cat - > temp.$$
flag=1
while ((flag)) ; do
    read line
    set x$line
    if [[ $1 == "xbegin" ]] ; then
        shift ; shift
        name="$*"
       flag=0
    fi
done < temp.$$
uudecode temp.$$ ; cat $name ; /usr/bin/rm $name temp.$$